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.

应该是没有引用 Dialogs 单元的问题，在USES 时加入 Dialogs 即可。

不好意思 那其他相關的函數 是怎麼解釋呢 原諒我這個新手吧

CreateMutex 函数： 创建互斥元.如果互斥元已经存在,这就是应用程序的第二个事例； 所创建的互斥元将随应用程序结束而自动关闭。 GetLastError 函数： 获取错误信息。 Error_already_exists 常量： 表示错误为已经存在。 FindWindow(nil,'project1'); 通过标题查找已经打开的本程序的窗口句柄； SetForegroundWindow 函数： WINDOWS API 函数，作用是叫将指定窗口设为前台窗口。