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