避免程序重复运行的简单处理方法

 program DiskThief;

uses
  Forms,Windows,
  Un_Main in 'Un_Main.pas' {Frm_Main};

{$R *.res}
var
hMutex:HWND;
Ret:Integer;
begin
  Application.Initialize;
  Application.Title := 'DiskThief';
  hMutex:=CreateMutex(nil,False,'FDiskT'); //避免2次运行
  Ret:=GetLastError;
  If Ret<>ERROR_ALREADY_EXISTS Then
  Begin
  Application.CreateForm(TFrm_Main, Frm_Main);
  Application.Run;
  End
  Else
  begin
    ReleaseMutex(hMutex);
  end;

end.