Menjalankan Aplikasi External dengan Delphi

Buatlah sebuah button dan klik 2x serta masukan coding di bawah ini.

www.dehidentrik.com

1. Memulai sebuah aplikasi, untuk dapat memulainya anda harus mempunyai sebuah aplikasi yang sudah ter-install, contohnya winamp dan Anda harus mengetahui dimana letak file .exe tersebut. Codingnya sebagai berikut :

ShellExecute(Handle, 'open',PChar('C:\Program Files\Winamp\winamp.exe'), nil, nil, SW_SHOW);



2. Menjalankan notepad dan membuka langsung sebuah file, codingnya sebagai berikut :

ShellExecute(Handle, 'open', PChar('notepad'), // maka akan muncul notepad.
PChar('c:\test\readme.txt'), nil, SW_SHOW); // maka akan muncul file yang di kehendaki.

3. Print sebuah dokumen langsung, codingnya sebagai berikut :

ShellExecute(Handle, 'print',PChar('c:\test\test.doc'), nil, nil, SW_SHOW);

4. Membuka halaman HTML di browser Anda, codingnya sebagai berikut :

ShellExecute(Handle, 'open',PChar('http://www.festra.com/'), nil, nil, SW_SHOW);

5. Membuka Folder di windows Explorer, codingnya sebagai berikut :

ShellExecute(Handle, 'explore', PChar('c:\windows)',nil, nil, SW_SHOW);

6. Menjalankan Perintah DOS dan tutup DOS dengan cepat, codingnya sebagai berikut :

ShellExecute(Handle, 'open', PChar('command.com'),PChar('/c copy file1.txt file2.txt'), nil, SW_SHOW);

coding no 6 adalah perintah untuk mengcopy file dengan command promt lewat aplikasi delphi.

7. Membuka command prompt, codingnya sebagai berikut :

ShellExecute(Handle, 'open', PChar('command.com'),PChar('/k dir'), nil, SW_SHOW);

Jangan lupa untuk menambahkan fungsi Shellapi di Uses

Selamat mencoba
Kembali ke beranda