Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 8 мая!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Активизация предыдущего экземпляра вашей программы

Если внутренняя переменная hPrevInst не равна нулю, то она содержит дескриптор предыдущего запущенного экземпляра вашей программы. Вы просто находите открытое окно по его дескриптору и, при необходимости, выводите на передний план. Весь код расположен в файле .DPR file, НЕ в модуле. Строки, которые вам необходимо добавить к вашему .DPR-файлу, в приведенном ниже примере помечены {*}.


 program Once;
 
 uses
 {*}  WinTypes, WinProcs, SysUtils,
 
 Forms,
 Onceu in 'ONCEU.PAS' {Form1};
 
 {$R *.RES}
 {*}TYPE
 {*}  PHWND = ^HWnd;
 
 {*}  FUNCTION EnumWndProc(H : hWnd; P : PHWnd) : Integer; Export;
 {*}  VAR ClassName : ARRAY[0..30] OF Char;
 {*}  BEGIN
 {*}    {Если это окно принадлежит предшествующему экземпляру...}
 {*}    IF GetWindowWord(H, GWW_HINSTANCE) = hPrevInst THEN
 {*}      BEGIN
 {*}        {... проверяем КАКОЕ это окно.}
 {*}        GetClassName(H, ClassName, 30);
 {*}        {Если это главное окно приложения...}
 {*}        IF StrIComp(ClassName, 'TApplication') = 0 THEN
 {*}          BEGIN
 {*}            {... ищем}
 {*}{*}            P^ := H;
 {*}            EnumWndProc := 0;
 {*}          END;
 {*}      END;
 {*}  END;
 
 {*}  PROCEDURE CheckPrevInst;
 {*}  VAR PrevWnd : hWnd;
 {*}  BEGIN
 {*}    IF hPrevInst <> 0 THEN
 {*}      {Предыдущий экземпляр запущен}
 {*}      BEGIN
 {*}        PrevWnd := 0;
 {*}        EnumWindows(@EnumWndProc, LongInt(@PrevWnd));
 {*}        {Ищем дескриптор окна предыдущего}
 {*}        {экземпляра и активизируем его}
 {*}        IF PrevWnd <> 0 THEN
 {*}          IF IsIconic(PrevWnd) THEN
 {*}            ShowWindow(PrevWnd, SW_SHOWNORMAL)
 {*}          ELSE BringWindowToTop(PrevWnd);
 {*}        Halt;
 {*}      END;
 {*}  END;
 begin
 {*}  CheckPrevInst;
 
 Application.Title := 'Once';
 Application.CreateForm(TForm1, Form1);
 Application.Run;
 end.
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS