Minggu, 29 Maret 2015

Cara Membuat Program Pemanggil Aplikasi Lain Sebanyak Mungkin

Berikut adalah Cara Membuat Program Pemanggil Aplikasi Lain Sebanyak Mungkin Via Delphi 7 Ok sebelumnya juga saya sudah berikan tips Download Source Code Cara Membuat Super Auto Router 2015 ok tanpa panjang lebar lagi bagi sahabat yang ingin mencobanya silahkan saja, dimana dibawah ini listing atau coding sederhana hanya untuk memanggil program secara bersamaaan, contoh dibawah ini adalah contoh saya memanggil program mozilla firefox, modem, dan google chorme hanya dengan satu kali klik maka program otomatis semuanya akan langsung terbuka, dimana cara ini juga adalah sebuah cara paling dasar yang diterapkan pada program program multi login ssh yang bisa memanggil program bitvise dan proxifier, dimana listing dibawah ini hanya melakukan panggilan saja dan untuk menutupnya anda harus secara manual jika anda ingin menutup semua program secara bersamaan seperti halnya melakukan panggilan program atau aplikasi bersamaan, ditunggu saja dipostingan selanjutnya jadi anda harus paham dulu setiap coding dasar, sebelum anda membuatnya lebih rumit, silahkan disimak.

Cara Membuat Program Aplikasi Via Borland Delphi 7


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Path: String;
begin
Path:= ExtractFilePath(Application.ExeName)+'firefox.exe';
ShellExecute (0, 'Open', 'C:\Program Files\Mozilla Firefox\firefox.exe', '', '', sw_hide);
sleep (10);
Path:= ExtractFilePath(Application.ExeName)+'chrome.exe';
ShellExecute (0, 'Open', 'C:\Users\Administrator\AppData\Local\Google\Chrome\Application\chrome.exe', '', '', sw_hide);
sleep (10);
Path:= ExtractFilePath(Application.ExeName)+'TELKOMSELFlash.exe';
ShellExecute (0, 'Open', 'C:\Program Files\TELKOMSELFlash\TELKOMSELFlash.exe', '', '', sw_hide);
sleep (10);
end;

// ---------------------------------------------------------------------//
// Path: String; sebagai deklaration file yang akan dipanggil
// Path:= ExtractFilePath(Application.ExeName) Untuk mengembalikan Value pada program utama
// 'firefox.exe'  File Yang dipanggil
// Path:= ExtractFilePath(Application.ExeName)+'firefox.exe'; //Sebagai Varible Untuk Memanggil File Berdasarkan Lokasi
// ShellExecute (0, 'Open', 'C:\Program Files\Mozilla Firefox\firefox.exe', '', '', sw_hide); Kode Perintah Sebagai Pemanggil File Yang sudah ditentukan sebelumnya
// ---------------------------------------------------------------------//


procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
resize:=false;
end;

end.

Postingan Selanjutnya;  Cara Membuat Aplikasi Software Menjadi Portable Dengan Winrar 2015

Untuk Download Contoh source codenya silahkan download DISINI dan hanya itu saja informasi kali ini seputar Cara Membuat Program Pemanggil Aplikasi Lain Sebanyak Mungkin 2015 terima kasih.