Welcome

Welcome, thanks to look my blog

Monday, 26 February 2024

ShellExecute

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

No comments:

Post a Comment