Как запустить приложение и подождать пока она закроется. [D7, Win95/98, WinME, NT4, Win2k, WinXP]
TitanDesign © (2004-10-28 17:27:00)
Здраствуйте. У меня вопрос, имеется такой код (внизу).. Надо
сделать так... Моя программа при обнаружении плугинса запускает
файл 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:00) [1]
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621841&n=15
Наверх 
ЧАТ |
Орешник |
|
