代碼: 選擇全部
if(GetDriveType(PChar(ExtractFileDrive(Application.ExeName)))<>DRIVE_CDROM) then
begin
ShowMessage('This program can only be run from the CD');
exit;
end;
代碼: 選擇全部
if(GetDriveType(PChar(ExtractFileDrive(Application.ExeName)))<>DRIVE_CDROM) then
begin
ShowMessage('This program can only be run from the CD');
exit;
end;