[轉貼]如何讓執行檔只能從CD執行
發表於 : 2008年 11月 27日, 18:02
可以利用 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;