判別程式是否已執行......?? |
|
|
|
umm
一般會員   發表：7 回覆：12 積分：3 註冊：2002-07-19 發送簡訊給我 |
|
|
P.D.
版主   發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
引言: 請問各位大大..... 程式該如何判別是否已執行........ 也就是避免同時執行兩ㄍ相同ㄉ程式...... 謝謝.......QQ
program Project1;
:
:
: var AppWnd: HWND; begin
AppWnd:= FindWindow('TApplication','Application Title');
if AppWnd <> 0 then begin
Application.Run;
exit
end
else begin
Application.Initialize;
Application.CreateForm(TForm_Main, Form_Main);
Application.Run;
end;
end.
請在你的 project 上, 就是打開專案後, 去找一個 program 專案名稱為開頭
的 file, 將原來的 begin... end 部份改寫成這樣即可, 請記得在 delphi menu/project/option/application 的 title 上先定義好應用程式的抬頭, 然後在上面的程式的Application Title改為你定義好的抬頭! good luck!
|
|
umm
一般會員 發表：7 回覆：12 積分：3 註冊：2002-07-19 發送簡訊給我 |
|
|
cubi
初階會員 發表：56 回覆：94 積分：35 註冊：2002-04-15 發送簡訊給我 |
發表時間：2002-08-01 11:19:16
IP:61.224.xxx.xxx 未訂閱
系統時間：2024-05-14 10:38:50
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |