防止程序多次运行 |
|
wnhoo
高階會員 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
防止程序多次运行 风花雪月 e梦情缘
[dpr部分] program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1} ,Windows, Messages; const hfck=wm_user $1000; appname='myname'; var myhandle:hwnd; {$R *.res} begin myhandle:=findwindow(appname,nil); if myhandle>0 then begin postmessage(myhandle,hfck,0,0); exit; end; Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. [form部分] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; const hfck=wm_user $1000; appname='myname'; type TForm1 = class(TForm) private { Private declarations } public procedure createparams(var params:tcreateparams);override; procedure restorerequest(var msg:tmessage);message hfck; { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.createparams(var params:tcreateparams); begin inherited createparams(params); params.WinClassName:=appname; end; procedure TForm1.restorerequest(var msg:tmessage); begin if isiconic(application.Handle )=true then application.Restore else application.BringToFront ; end; end.發表人 - wnhoo 於 2003/07/15 08:45:45
------
风花雪月 e梦情缘
附加檔案:33954_wnhoo.rar
|
領航天使
站長 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
|
wnhoo
高階會員 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |