程序只运行一次的方法

  USE中加上Windows,SysUtils,Dialogs,

{$R *.res}
 var
myMutex:HWND;
begin
myMutex:=CreateMutex(nil,false,'docotrFind2011');
if WaitForSingleObject(myMutex,0)<>wait_TimeOut then
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
   end else showmessage('程序已运行，请不要重复打开！') ;
end.

 其中'docotrFind2011' 为随便起的一个名字（尽可能怪怪点，这样就不会重复） ，只要你的系统中不存在这个程序名称就行。也就是说，只要是这个名字的程序，就不能启动。