Головна сторінка
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.55 MB
Час: 0.059 c
3-1100521163
Сер Джон
2004-11-15 15:19
2004.12.12
експорт з SyBase


1-1101608757
Bobby Digital
2004-11-28 05:25
2004.12.12
Listbox pt.2


3-1100428523
мегабайт
2004-11-14 13:35
2004.12.12
Не можу зробити запит по обчислюваному полю


1-1101803179
DimonNew
2004-11-30 11:26
2004.12.12
Програма у вигляді майстра


14-1101226867
syte_ser78
2004-11-23 19:21
2004.12.12
Тюльпан з паперу





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