如何使應用程式只能開一個 |
尚未結案
|
pricejit2
一般會員 發表:53 回覆:18 積分:14 註冊:2005-01-28 發送簡訊給我 |
showmessage 那一段老是不能執行
用form1.button1click(sender) 去激發 form1的 showmessage 也有問題
請各位大大幫忙 program Project1; uses
Forms,
windows,
Messages,
Unit1 in 'Unit1.pas' {Form1}; {$R *.res}
var li_HWD:integer;
begin
CreateMutex(nil,true,pchar('xxx')); //xxx:自行設一個的名稱
if GetLastError=Error_already_exists then //如果已開啟
begin
li_HWD:=FindWindow(nil, 'project1'); //yyy:Application.Title
if ( li_HWD <> 0) then //將該程式Show出來
begin
if SetForegroundWindow(li_HWD) = false then //set foreground fail
ShowMessage('程式已經開啟,請先關閉上一個程式,或請重新開機');
end;
halt; //結束本程式
Exit;
end; Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
|
Vicen
高階會員 發表:13 回覆:145 積分:151 註冊:2005-03-14 發送簡訊給我 |
|
pricejit2
一般會員 發表:53 回覆:18 積分:14 註冊:2005-01-28 發送簡訊給我 |
|
Vicen
高階會員 發表:13 回覆:145 積分:151 註冊:2005-03-14 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |