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

本文整理自网络，侵删。

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

相关阅读 >>

Delphi 获取超gb大文件大小

Delphi findfiles获取目录下所有文件

Delphi获取文件编码

Delphi cxgrid使用小结

Delphi 多线程（tthread类的实现）实例

Delphi windows的消息传递--消息盒子

Delphi中for in 语法应用实例

Delphi fdquery 判断记录为空

Delphi 通用程序自动更新升级

Delphi 字符串插入与删除

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi检测程序是否在优盘上运行