Форум: "Основная";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];

Вниз

память   Найти похожие ветки 

← →
Z   (2002-01-04 22:37) [2]

Или можно еще перезапустить твою прогу...
Код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
Command, Params, filename : pchar;
dir: string;
begin
command:="open" + #0;
Params:="" + #0;
filename:="vopros.exe" + #0;
dir:=ExtractFilePath(Application.ExeName)+#0;
ShellExecute(1, command, filename, params, @Dir[1], 0);
CanClose:=true;
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c