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.