Вопрос № 162677: Здравствуйте! Я делаю что-то типа блокнота, но со вкладками. Программа почти готова и осталось только установить связи с расширение .txt и обработать запуск программы с параметрами. В обработчике события OnFormCreate я проверяю переданы ли про...
Вопрос № 162730: Здравствуйте, господа эксперты и все кто может помочь Вот такая проблема: Я создал новый класс <i>unit Unit5; interface uses ExtCtrls, dialogs, forms;
type Tgrafic = class(Tpaintbox) private im_hei...
Вопрос № 162.677
Здравствуйте! Я делаю что-то типа блокнота, но со вкладками. Программа почти готова и осталось только установить связи с расширение .txt и обработать запуск программы с параметрами. В обработчике события OnFormCreate я проверяю переданы ли программе какие либо параметры, если да, то открываю файл указаный в них:
Код:
procedure TForm1.FormCreate(Sender: TObject); var Str: String; i: Integer; begin if (ParamCount > 0) then begin Str := ParamStr(1); for i := 2 to ParamCount do begin Str := Str + ' ' + ParamStr(i); end; //CreteTab создает вкладку с memo и загружает в него файл указанные в параметре CreateTab(Str); end; end;
Все работает отлично, файл
открывается. Но если попытаться вывести имя файла, указаного в параметре запуска программы, то, например, для файла Текстовой документ.txt, расположенный на рабочем столе, получится это: C:DOCUME~1MARKED~1.MYP