Delphi 5. Учебник



         

Активизирование существующей копии



    Все-таки, сказать пользователю "Ты уже запустил одну копию, теперь иди и ищи ее!"— как-то негуманно... Более профессиональным решением будет активизировать существующую копию с помощью другой функции Windows API — SetForegroundWindow. Измените проект следующим образом.

    var
        hwndPrev: HWND;
    begin
        Application.Initialize;
        hwndPrev:= FindWindow('TFormi','Formi');
        if hwndPrev < 0 then
        begin
            SetForegroundWindow(hwndPrev);
            Application.Terminate;
        end;
        Application.CreateForm(TFormi,Formi);
        Application.Run;
    end.
 
 
 
 
 
 
 
 
 
 




Содержание  Назад  Вперед