各位先進: 如何讓已經執行ㄉ程式不要在執行,並秀出程式已執行... 謝謝^o^ 逃避不一定躲得過 面對不一定最難受 孤單不一定不快樂 得到不一定能長久 失去不一定不再有 轉身不一定最軟弱 別急著說別無選擇 別以為世上只有對與錯 許多事情的答案都不是只有一個 所以我們永遠有路可以走 你能找個理由難過 也一定能找到快樂 懂得放心的人找到輕鬆 懂得遺忘的人找到自由 懂得關懷的人找到朋友

delphi 你好: 這個問題好像已經被問很多次了耶< > 下次要記得先使用搜尋的功能喔< > http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20777 -- Enjoy Researching & Developing --

------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --

利用Windows 核心物件 Mutex來控制執行

    function CheckInstance(var hMutex : THandle) : Boolean ;
begin
   hMutex := CreateMutex(nil,true,'MyApplication');
   result := (GetLastError = ERROR_ALREADY_EXISTS);
end ;

請記得在你的程式結束時呼叫 CloseHandle(hMutex)

其實用API也可以解決﹕ 先引入>