RSS订阅 | 匿名投稿
您的位置:网站首页 > 硬件 > 正文

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

作者:admin 来源: 日期:2011/8/11 9:02:52 人气: 标签:

var Drv, Pid: string;
begin
    Drv := ExtractFileDrive(ParamStr(0));
    if GetDriveType(PChar(Drv + '\')) <> DRIVE_REMOVABLE then
    begin
       Application.MessageBox('对不起,请把本程序放至到优盘上使用!', '致命性错误', MB_ICONHAND);
       halt;
end;
读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: