判断程序是否已经运行,然后kill旧的或者新的.

1.利用  CreateMutex

CreateMutex(nil, false, 'project');
  result := true;
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
 //   SendMessage(MSG_CLOSE_WIN, RegisterWindowMessage('project'), 0, 0);       //  HWND_BROADCAST
    close;
    ShowMessage('You have the program running allready!!');
    Halt(0);                                 
    result := false;    //     true   false
  end;     

2.利用SendMessage和FindWindow(FindWindow(类名,caption),)

SendMessage(FindWindow('TfrmSimulator',nil), WM_CLOSE, 0 ,0);    // Simulator

3.GlobalFindAtom (用此函数一定得销毁)

{搜寻表看是否程序已运行}
if GlobalFindAtom('PROGRAM_RUNNING') = 0 then
{ 如果没运行,则在表中增加信息 }
atom := GlobalAddAtom('PROGRAM_RUNNING')
else begin
{ 如果程序已运行,则显示信息然后退出 }
MessageDlg('You have the program running
all ready!!', mtWarning,[mbOK], 0);
Halt;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
{从表中移走信息以便程序能再运行}
GlobalDeleteAtom(atom);
end;


如果是想关闭以前的然后再打开新的建议用2.建议3最好不要用