delphi检测程序是否在优盘上运行


var Drv, Pid: string;
begin
   Drv := ExtractFileDrive(ParamStr(0));
   if GetDriveType(PChar(Drv + '\')) <> DRIVE_REMOVABLE then
   begin
   Application.MessageBox('对不起,请把本程序放至到优盘上使用!', '致命性错误', MB_ICONHAND);
   halt;
end;
联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678