Учебник по Delphi 4

       

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



    Все-таки, сказать пользователю "Ты уже запустил одну копию, теперь иди и ищи ее!"— как-то негуманно... Более профессиональным решением будет активизировать существующую копию с помощью другой функции 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.


 
 
 
 
 
 
 
 
 
 



Содержание раздела