Вопрос по Edit

[Delph1n]

Есть код который сохраняет текс из 4 едитов в файл. Что прописать чтобы из каждого поля едит сохранялись через запятую?
Вот сам код

procedure TForm1.Button1Click(Sender: TObject);
var
f: textfile;

begin
assignfile(f, c:\file.txt);
rewrite(f);
writeln(f, edit1.text);
writeln(f, edit2.text);
writeln(f, edit3.text);
writeln(f, edit4.text);
closefile(f);
end;

[maladoy]

assignfile(f, c:\file.txt);
rewrite(f);
write(f, edit1.text+', ');
write(f, edit2.text+', ');
write(f, edit3.text+', ');
write(f, edit4.text);
writeln;
closefile(f);

[Д'якон]

writeln(f, edit1.text+','+edit2.text...); наверное

[Delph1n]

maladoy
Благодарю, все получилось

[maladoy]

Сообщение от Delph1n

maladoy
Благодарю, все получилось

всегда пожалуйста !!!! обращайся помогу чем смогу!!!! правда я сам многого не знаю!!!

[Delph1n]

А еще вопросик: вот все сохранилось в файл, как сделать чтоб как только сохранилось сразу запустился нужный файл лежащий в одной дериктории с этим? Пробовал добавлять в конце процедуры CreateProcess вот пример

CreateProcess( 'C:\Program Files\MyApp.exe','-L -S',nil,nil,false, Create_default_error_mode, nil, 'C:\Program Files\', StartInfo, ProcessInfo);

но здесь указываетсь полный путь. Подскажите как быть?

[maladoy]

uses ShellApi;
...ShellExecute(Handle, 'open',
  'c:\Program Files\MyApp.exe', nil, nil, SW_SHOWNORMAL);

[Delph1n]

Вот если неизвестно на каком диске установлена винда то из под Доса можно написать так: %SystemRoot%, а в делфи возможно как нибудь?

[Terran]

Сообщение от Delph1n

Вот если неизвестно на каком диске установлена винда то из под Доса можно написать так: %SystemRoot%, а в делфи возможно как нибудь?

Function WinDir: String;
Var
IntLen: Integer;
StrBuffer: String;
Begin
SetLength(StrBuffer,1000);
IntLen:=GetWindowsDirectory(PChar(StrBuffer),1000);
WinDir:=Trim(Copy(StrBuffer,1,IntLen));
End;