Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "WinAPI";
Поточний архів: 2004.12.12;
Завантажити: [xml.tar.bz2];

Вниз

Як запустити додаток і почекати поки вона закриється. Знайти схожі гілки


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

Здраствуйте. У мене питання, є такий код (внизу) .. Треба зробити так ... Моя програма при виявленні плугінса запускає файл Multik.exe і при закритті цього файлу, закривалася і моя програма. Дякуємо.

//////////////////////////////////////////
// Перевіряємо категорію в реєстрі:
//////////////////////////////////////////
function IsFlashInstalled: Boolean;
було
Reg: TRegistry;
s: string;
починати
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);
починати
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



сторінки: 1 вся гілка

Форум: "WinAPI";
Поточний архів: 2004.12.12;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.81 MB
Час: 0.049 c
3-1100521367
VadimK
2004-11-15 15:22
2004.12.12
Створення Cursor в ХП, через компоненти DBExpress


1-1101877338
Shtukos
2004-12-01 08:02
2004.12.12
З деяких пір Delphi 7 не запускається, а видає вікно


14-1101091978
vidiv
2004-11-22 05:52
2004.12.12
Поясніть будь ласка...


1-1101827590
Санья
2004-11-30 18:13
2004.12.12
Допоможіть з кодом.


8-1094583160
bulanov
2004-09-07 22:52
2004.12.12
Як скопіювати частину малюнка





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська