Saat menulis program, terkadang untuk menghemat tenaga atau untuk tujuan lain, kita sering ingin meminjam kotak dialog sistem. Jadi, bagaimana kita memanggil kotak dialog sistem? Seorang teman memanggil kotak dialog "Buka Dengan" di VB seperti ini:
winexec(PChar('rundll32shell32,OpenAs_RunDLL'+FilePath),SW_SHOWDEFAULT);
Kode ini diimplementasikan dengan menjalankan rundll32.exe dan membiarkannya memanggil sumber daya di shell32.dll. Metodenya bisa dilakukan, tetapi banyak pemula seperti saya yang tidak mengerti cara memanggil sumber daya berharga di shell32.dll.
Begini cara saya menyebutnya:
1. Panggil kotak dialog “Tentang” sistem:
Pertama tambahkan SHellApi untuk digunakan,
Kemudian tulis kode berikut:
ProsedurTForm1.Button1Click(Pengirim:TObject);
var
shellapp:varian;
mulai
ShellTentangW(0,'Timerv1.03','kedyCopyright',1);
akhir;
Saya tidak akan menjelaskan secara detail tentang langkah lainnya. Setelah dijalankan, klik tombol tersebut dan kotak dialog WINDOWS About standar akan muncul. Kotak dialog berjudul "Tentang Timerv1.03". Seperti yang Anda lihat, saya menggunakan fungsi ShellAboutW dalam program ini. Fungsi ini dijelaskan di MSDN2003 seperti ini:
ShellTentangFungsi
Menampilkan kotak dialog ShellTentang.
Sintaksis
intShellTentang(HWNDhWnd,
LPCTSTRszApp,
LPCTSTRszBarang Lainnya,
Ikon HICONh
);
Parameter
wx
[di]Pegangan jendeladanjendela induk.Parameter ini bisa menjadiNULL.
szApp
[di]Penunjuk ke string yang diakhiri dengan teks yang berisi teks yang akan ditampilkan di
titlebar dari kotak dialog ShellAbout dan pada baris pertama kotak dialog setelahnya
teks "Microsoft". Jika teks berisi pemisah (#) yang membaginya menjadi dua bagian,
fungsi menampilkan bagian pertama pada judul dan bagian kedua pada baris pertama
setelahteks"Microsoft".
szOtherStuff
[di]Penunjuk ke string yang diakhiri dengan teks yang berisi teks yang akan ditampilkan di
kotak dialog setelah versi dan informasi hak cipta.
hIkon
[di]Ikon yang fungsinya ditampilkan di kotak dialog. Jika parameter ini NULL, maka
fungsi menampilkan ikon Microsoft®Windows®atau MicrosoftWindowsNT®.
Saya rasa Anda tidak perlu saya menerjemahkan artinya. Yang terbaik adalah melihat sendiri hal-hal ini.
2. Panggil kotak dialog mematikan
Kita hanya perlu mengubah bagian awal kode menjadi
mulai
shellapp:=CreateOleObject('Shell.aplikasi');
shellapp.ShutDownWindows;
akhir;
Bagian lainnya tetap tidak berubah. Jalankan dan klik tombol tersebut dan kita dapat melihat kotak dialog shutdown sistem standar.
Faktanya, ini masih disebut fungsi WindowsAPI shutdownwindows.
Bagian ini menggunakan dua fungsi dalam metode aplikasi shell Windows. Fungsi lain dari metode meliputi:
TelusuriForFolder, CascadeWindows, ControlPanelItem, EjectPC, Jelajahi, FileRun, FindComputer, FindFiles, Bantuan, MinimizeAll, NameSpace, Buka, RefreshMenu, SetTime, TileHorizontally, TileVertically, TrayProperties, UndoMinimizeALL. Saya hanya belajar menggunakan beberapa fungsi ini. Untuk detailnya, silakan periksa konten tentang shellobject di MSDN.
Yang paling ingin saya katakan adalah Anda harus menggunakan MSDN untuk mempelajari program di bawah windows. Saya sangat kagum dengan sumber daya di perpustakaan ini. Anda dapat melihatnya dan saya rasa Anda juga akan berpikir demikian.