Cara Memanggil Program Lain Menggunakan ShellApi

Pada kesempatan ini saya akan share cara memanggil program lain menggunakan shell Api.
Tidak perlu komponen khusus cukup menggunakan API milik windows.

Manfaat Dari ShellApi sendiri  misal untuk membuat launcher aplikasi. Atau bisa juga untuk membuat inject all in one yang biasanya dibungkus dengan software proxifier dan bitvise tunelier. Nah pemanggilan program tersebut dapat menggunakan cara ini.

Pertama buatlah project baru pada delphi anda Seperti biasa.
Lalu masukan shellapi pada uses clause nya yang di kasih warna merah.

Lihat Contoh :

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,shellapi;

Lalu buatlah satu button pada form.
Nah button iniakan kita fungsikan jika kita klik akan memanggil program Ip Hunter yang berada pada folder yang sama dengan program launcher kita.
Isikan Coding berikut pada event on click button

var Path: String;
begin
Path:= ExtractFilePath(Application.ExeName)+'Get_my_IP.exe';

shellExecute(Handle, 'open', Pchar(Path),nil,nil, sw_ShowNormal );

Penjelasan :

var Path: String;
Deklarasi alamat dimana lokasi file yang akan kita panggil.

Path:= ExtractFilePath(Application.ExeName)+'Get_my_IP.exe';
 Isi variabel path dengan lokasi file yang akan dipanggil.

ExtractFilePath(Application.ExeName)
Akan mengembalikan value berupa lokasi program utama, jadi kita baru dapat lokasi folder nya saja

 'Get_my_IP.exe'
Nama file yang akan dipanggil

Jika 2 variabel diatas digabungkan akan menghasilkan lokasi dimana file yang akan dipangil berada.

shellExecute(Handle, 'open', Pchar(Path),nil,nil, sw_ShowNormal );
Perintah untuk pemanggilan file tersebut.


Jika suda selesai jangan lupa letakkan file  Get_my_IP.exe pada folder yang sama dengan project yang anda buat/tempat aplikasi utamanya dijalankan.

Silahkan build dan compile lalu tes.

Semoga berhasil.