[轉貼]如何讓執行檔只能從CD執行

有關Delphi 的語法, 程式, 等
回覆文章
頭像
tim
文章: 1380
註冊時間: 2008年 11月 26日, 00:49

[轉貼]如何讓執行檔只能從CD執行

文章 tim »

可以利用 GetDriveType, Application.ExeName 來進行判斷, 程式碼如下:

代碼: 選擇全部

       if(GetDriveType(PChar(ExtractFileDrive(Application.ExeName)))<>DRIVE_CDROM) then 
       begin 
         ShowMessage('This program can only be run from the CD'); 
         exit; 
       end; 
]
多多留言, 整理文章, 把經驗累積下來.....
回覆文章