| Вопрос: Коммандная строка | Добавлено: 02.11.03 12:47 |
Автор вопроса:  Александр | ICQ: 204034 |
|
Помогите народ!!!!!!!!!!!!!!!! Или меня сильно глючит, или как. НО ЭТОТ КОД НЕ ПАШЕТ: 'Сраная коммандная строка!!!! 'В отдельном проекте работает, а тут... :-( 'Уже все убрал - все равно не пашет (с**а). Пишет, что ошибка. 'Но пишет не после нажатия F5, а при запуске экзешника из Windows!!!! 'Че за дела??? Падла... Кто исправит - бог поможет ему в жизни... On Error Resume Next If Not WinNT = True Then RegisterServiceProcess 0, 1 'Если не линейка WinNT/2k/XP, то играем в прятки If Command$ <> "" Then 'Если при загрузке программе послана коммандная строка, то обрабатываем ее CmdStrWin = Command$ 'Убираем ее во временную переменную LenComm = Len(CmdStrWin) 'Узнаем ее длинну для того, чтобы "вытащить" из нее файл If Left$(CmdStrWin, 1) = """" And Right$(CmdStrWin, 1) = """" Then 'тащим из нее файл 'Формируем имя файла из коммандной строки. 'Т.к. в имени файла Винда не допускает кавчыки, а в коммандной строке 'они стоят иногда в начале и в конце, то просто их убираем и читаем файл. CmdStrWin = Mid$(CmdStrWin, 2, LenComm - 2) FileOpen CmdStrWin 'Открываем файл izmena = False 'ведь мы за миллионыые доли секунды не сможем изменить файл? => ставим флаг на "нет" GetNotepadSettings txtMain, dlgCommonDialog Form_Resize 'Задаем размеры load_list_of_files 'Грузим список файлов в меню истории Exit Sub 'Выходим из подпрограммы End If Else GetNotepadSettings txtMain, dlgCommonDialog load_list_of_files 'Грузим список файлов в меню истории Form_Resize 'Задаем размеры Exit Sub End If Dim ShowAtStartup As Long 'Это не старт вместе с виндой, а старт Хохмача при запуске программы ShowAtStartup = GetSetting(App.Title, "Options", "Show Tips at Startup", 1) If ShowAtStartup = 0 Then 'Если "ноль", то не запускаем Form_Resize 'Задаем размеры Exit Sub 'Выходим из подпрограммы End If If ShowAtStartup = 1 Then 'Если "один", то запускаем frmTip.Show vbModal, Me 'Показываем его Form_Resize 'Задаем размеры Exit Sub 'И выходим из подпрограммы не выгружая хохмач End If |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:   Last_Santa ICQ: 200700724 Вопросов: 38 Ответов: 329 |
Web-сайт: Профиль | | #1 | Добавлено: 04.11.03 04:55 |
|
Чет ничерта не разберу в твоем коде, где у тебя процедуры начинаются, где кончаются, тоже самое с if - end if все перемешалось Вышли мне исходник посмотрю, и напиши, что у тя неполучается, насколько я понял, прога неправильно читает командную строку и как результат не открывает файл |
||
|
Номер ответа: 2 Автор ответа: Александр Разработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #2 | Добавлено: 04.11.03 18:29 |
|
Хорошо, но только не весь. Ладно??? |
||
Страница: 1 |