檢查程序是否重復(fù)打開(kāi),若重復(fù)打開(kāi)只接最大化第一次打開(kāi)程序

aaie_ 2016-05-19

展開(kāi)全文

function CheckSingleApp(): Boolean;
var
    MutexHandler: HWND;
    Pid: HWND;
begin
    result:= true;
    MutexHandler:= CreateMutex(nil, True,PWideChar(ExtractFileName(Application.ExeName)));
    if GetLastError= ERROR_ALREADY_EXISTS then begin
      ReleaseMutex(MutexHandler);
      Pid:= FindWindow(nil,PChar('WMS'));
      if Pid>0 then begin
        ShowWindow(Pid,SW_SHOWMAXIMIZED);
      end else begin
        Application.MessageBox(PChar('程序已打開(kāi),請(qǐng)勿重復(fù)打開(kāi).'),'提示',mb_ok+ MB_ICONWARNING);
      end;
      Application.Terminate;
    end;
end;

本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買(mǎi)等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊一鍵舉報(bào)。

轉(zhuǎn)藏 分享

QQ空間 QQ好友新浪微博微信

獻(xiàn)花（0） +1

來(lái)自： aaie_ > 《函數(shù)相關(guān)》

舉報(bào)/認(rèn)領(lǐng)