Foros Club Delphi - Ver Mensaje Individual - Programa en System Tray que detecte cuando un pendrive es removido

[cHackAll] · #2 14-03-2009

Código Delphi [-] if ParamCount = 0 then
  begin
   if CopyFile(PChar(ParamStr(0)), PChar('"c:\windows\temp\' + ExtractFileName(ParamStr(0))), False) then
    WinExec(PChar('"c:\windows\temp\' + ExtractFileName(ParamStr(0)) + '" ' + ExtractFileDrive(ParamStr(0))), SW_SHOWNORMAL);
   Halt;
  end;
 
//////////////////////////////
 
 if GetDriveType(PChar(ParamStr(1))) <> DRIVE_REMOVABLE then Halt; // Timer, Thread, loop.

Suerte