PROMO

PROMO
HOSTING NO 1 INDONESIA

Google Analityc Experiment

Run Aplikasi Lain

Membuat aplikasi kadang penuh dinamika, permintaan user kadang ada-ada saja. Sehingga kadang kita sebagai programmer
harus all out untuk bisa memenuhi permintaan user.

Saya mau sharing bagaimana cara mengeksekusi program lain, dengan menggunakan bahasa pemrograman delphi
Pemanfaatannya misalnya :
-Kita tidak usah membuat aplikasi kalkulator saat kita mau menampilkan kalkulator, gimana caranya
tinggal panggil aja calc.exe lewat program kita


Berikut petikan source codenya

Untuk mengeksekusi aplikasi lain

procedure TForm1.BtnLoadAppClick(Sender: TObject);
var
  ExecuteFile : string;
  SEInfo: TShellExecuteInfo;
begin
  ExecuteFile:='C:\folder\nama_aplikasi_yang_akan_dijalankan.exe';

  FillChar(SEInfo, SizeOf(SEInfo), 0) ;
  SEInfo.cbSize := SizeOf(TShellExecuteInfo) ;
  with SEInfo do
  begin
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := pnlTop.Handle;
    lpFile := PChar(ExecuteFile) ;
    nShow := SW_HIDE;
  end;
  if ShellExecuteEx(@SEInfo) then
  begin


      Windows.SetParent(AppWnd, SEInfo.Wnd);
      ShowWindow(AppWnd, SW_SHOWMAXIMIZED);



  end;
end;





Tidak ada komentar:

Baca Juga