Menjalankan Aplikasi dari Lokasi Tertentu

Seperti kita ketahui ada beberapa Aplikasi yang hanya bisa dijalankan di lokasi(Drive) tertentu saja. Ada program antivirus yang hanya bisa dijalankan dari HardDrive, ataupun sebaliknya ada pula program aplikasi yang hanya bisa dijalankan dari CDRom saja. Berikut sedikit kode sederhana untuk menjalankan aksi tersebut.

Letakkan kode berikut, misal pada Tform1.FormCreate(Sender: TObject);//event yang kita gunakan

if GetDriveType//Fungsi deteksi jenis Drive
(pchar(copy(application.ExeName,1,3)))//Deteksi lokasi file Exe-nya
= DRIVE_FIXED //bandingkan nilai yang didapat dengan konstanta fungsi GetDriveType
then
begin
showmessage('Program tidak bisa dijalankan dari harddrive');
Application.Terminate; //Aksi yang kita jalankan
end;

Konstanta dari Fungsi GetDriveType
0://tidak diketahui;
1://Root direktori tidak ada;
DRIVE_REMOVABLE://'flaskdisk/floppy';
DRIVE_FIXED://'hard drive';
DRIVE_REMOTE://'network Drive';
DRIVE_CDROM://'CD-ROM Drive';
DRIVE_RAMDISK://'RAM-Disk Drive';

Delphi Indonesia