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