[fidoshnik]

Вот собствено есть программа которая последовательно запускает два приложения, вот код Код:

Код:

procedure TForm1.Timer1Timer(Sender: TObject); Код:
begin 
WinExec('-',SW_SHOWNORMAL); 
end; 
procedure TForm1.Timer2Timer(Sender: TObject); 
begin 
WinExec('-',SW_SHOWNORMAL); 
close() 
end; 

вот а теперь, нужно вывести форму чето типа етого

но нужно вывести только при первом запуске приложения, и все что будет в edit зафиксировать в WinExec для следующих запусков с такими параметрами.
програмирую не давно, как можно ето осуществить если можно с пояснениями.
Заранее спасибо

[The Shadow]

Не совсем понял вопрос но возможно ини файлы подойдут

[fidoshnik]

Сообщение от The Shadow

Не совсем понял вопрос но возможно ини файлы подойдут

надо вывести форму только при первом запуске приложения, и все что будет введено в edit вписать в WinExec и все.

[The Shadow]

Код:

if not FileExists(ExtractFilePath(Application.ExeName) + 'Params.ini') then
Form1.ShowModal;
with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Params.ini') do
begin
WinExec(PChar(ReadString('Param1', 'Params', ''), SW_SHOWNORMAL);
WinExec(PChar(ReadString('Param2', 'Params', ''), SW_SHOWNORMAL);
Free;
end;

А в событии OnClose второй формы

Код:

with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Params.ini') do
begin
WriteString('Param1', 'Params', Edit1.Text);
WriteString('Param2', 'Params', Edit2.Text);
Free;
end;

Вроде так.

[zip000]

Хм. Зачем заморачиваться? Не проще ли создать просто форму прямо в программе и создавать и показывать во время создания основной формы в событии OnCreate, сохранять введенные данные и потом удалять форму.

[fidoshnik]

Сообщение от The Shadow

Код:

if not FileExists(ExtractFilePath(Application.ExeName) + 'Params.ini') then
Form1.ShowModal;
with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Params.ini') do
begin
WinExec(PChar(ReadString('Param1', 'Params', ''), SW_SHOWNORMAL);
WinExec(PChar(ReadString('Param2', 'Params', ''), SW_SHOWNORMAL);
Free;
end;

А в событии OnClose второй формы

Код:

with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Params.ini') do
begin
WriteString('Param1', 'Params', Edit1.Text);
WriteString('Param2', 'Params', Edit2.Text);
Free;
end;

Вроде так.

Ну вроде суть понял, но компилятор на TIniFile ругаеться чет не пойму как исправить.

Код:

[Error] Unit1.pas(30): Undeclared identifier: 'TIniFile'
  [Error] Unit1.pas(32): Undeclared identifier: 'ReadString'
  [Error] Unit1.pas(32): ')' expected but ',' found
  [Error] Unit1.pas(33): ')' expected but ',' found
  [Error] Unit1.pas(34): Undeclared identifier: 'Free'
  [Error] Unit1.pas(36): '.' expected but ';' found
  [Error] Unit1.pas(39): 'DO' expected but identifier 'Create' found
  [Error] Unit1.pas(41): Undeclared identifier: 'WriteString'
  [Error] Unit1.pas(46): ';' expected but '.' found
  [Error] Unit1.pas(48): Declaration expected but end of file found
  [Error] Unit1.pas(13): Unsatisfied forward or external declaration: 'TForm1.FormCreate'
  [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[san-46]

Код:

implementation
uses
  IniFiles;

[fidoshnik]

Может я и ошибаюсь но здесь ты чего со скобками не дописал.
WinExec(PChar(ReadString('Param1', 'Params', ''), SW_SHOWNORMAL);
WinExec(PChar(ReadString('Param2', 'Params', ''), SW_SHOWNORMAL);

[The Shadow]

Да.

Код:

WinExec(PChar(ReadString('Param1', 'Params', '')), SW_SHOWNORMAL);
WinExec(PChar(ReadString('Param2', 'Params', '')), SW_SHOWNORMAL);