Aplikasi Run As Administrator dengan Delphi

Terkadang dalam membangun sebuah Aplikasi kita perlu menjalankan Aplikasi yang kita bangun dengan akses Administrator di Windows. Suatu misal untuk menjalankan perintah-perintah yang membutuhkan akses administrator semisal menghentikan service yang sedang berjalan atau menjalankan sebuah service. Disini saya akan coba berbagi cara Membuat aplikasi kita dijalankan dengan level Administrator.

1. Kita memerlukan dua buah file manifest dan file rc kedua file tersebut dapat anda Download disini

2. Extrack File tersebut ke direktori D:\

3. Selanjutnya kita akan membuat sebuah File RES dengan memanfaatkan Tools brcc32

4. Buka Command Prompt dan Masuk ke Direktory Folder Hasil Ekstrak File (Step 2) kemudian ketikan perintah brcc32 ReqAdmin.rc

5. akan terbentuk sebuah file baru dengan nama ReqAdmin.res. Copy Semua File tersebut kedalam Folder Projek anda lalu Tambahkan code {$R 'ReqAdmin.res'} kedalam projek anda seperti gambar dibawah ini

6. Compile Projek Anda dengan menekan CTRL+F9 (Jangan di Run / F9)

7. Lihat Hasil Compile kemudian Coba Jalankan. Jika anda menggunakan komponen XPMan kemungkinan tidak akan berhasil silahkan hapus komponen tersebut dari form dan uses projek anda.

Silahkan Download Contoh Projek Hasil Compile saya disini. Selamat Mencoba Semoga Berhasil. :)