Как запустить приложение и подождать пока она закроется.

← →
TitanDesign © (2004-10-28 17:27) [0]

Здраствуйте. У меня вопрос, имеется такой код (внизу).. Надо сделать так... Моя программа при обнаружении плугинса запускает файл Multik.exe и при закрытии этого файла, закрывалась и моя программа. Спасибо.

//////////////////////////////////////////
// Проверяем категорию в реестре:
//////////////////////////////////////////
function IsFlashInstalled: Boolean;
var
Reg: TRegistry;
s: string;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Result := Reg.KeyExists("Software\Classes\ShockwaveFlash.ShockwaveFlash.7");
finally
Reg.Free;
end;
end;

//////////////////////////////////////////
//
//////////////////////////////////////////
procedure TMainForm.MainFormOnCreate(Sender: TObject);
begin
if IsFlashInstalled then
begin
ShellExecute(Handle, "open", "Multik.exe", nil, nil, SW_SHOWNORMAL);
end else
begin
ShellExecute(Handle, "open", "Install Flash Player 7 AX.exe", nil, nil, SW_SHOWNORMAL);
end;
end;

← →
GuAV © (2004-10-28 18:52) [1]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621841&n=15

Как запустить приложение и подождать пока она закроется. Найти похожие ветки