|
|
#1
|
||||
|
||||
Закрыть программу
У программы два варианта использования:
1) запуск .exe (ярлык, меню "Пуск" и т.д.) далее все как обычно 2) запуск из контекстного меню Проводника, ParamStr(1) - имя файла, тут нужно выполнить действия и закрыть программу Код:
procedure TForm1.FormCreate(Sender: TObject); begin CurDir:=ExtractFilePath(Application.ExeName); VewHist:=TStringList.Create; if FileExists(CurDir+'\list.txt') then VewHist.LoadFromFile(CurDir+'\list.txt'); If ParamStr(1)<>'' then begin Application.ShowMainForm:=False; VewHist.Insert(0,ParamStr(1)); // Здесь надо закрыть программу end; {Дальше выполняем если параметр пустой} ---------------------------- end; Извиняюсь ошибка совсем в другом месте: VewHist.SaveToFile(CurDir+'\list.txt'); Application.Terminate вполне справляется. Последний раз редактировалось Помидоркин, 26.01.2015 в 02:55. |
#2
|
||||
|
||||
Код:
program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin // тут Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. Пишу программы за еду. __________________ |