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中的free和nil

Delphi 如何将颜色值转换为灰度颜色值？

Delphi获取程序所在目录

Delphi rgbtohsb

Delphi stringgrid常用属性和常用操作

Delphi 利用tidencodermime tiddecodermime 组件字符串加密解密

Delphi 分解时间 �cdecodedate、decodetime … decodedatetime …

Delphi简体中文与繁体中文的转换函数

Delphi 内存读取、修改

Delphi xe android]获取屏幕的物理分辨率

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

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