Arsip: 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 ini sedikit kode sederhana untuk menjalankan aksi tsb.

Letakkan kode berikut, misal pada Tform.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;

Fungsi diatas apabila dijalankan akan menghasilkan peringatan
bahwa program tidak bisa dijalankan dari hardDrive.
Untuk jenis type drive lainnya berikut

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';

©2009 TBawor