Permenkaret
20th November 2011, 02:45 AM
Menginstall Komponen baru
Di sini kami akan memberikan contoh cara menginstall komponen baru pada Delphi 3. Sebelumnya download terlebih dahulu komponen IEButton. Adapun caranya adalah sebagai berikut :
1. Setelah Anda mendownload dan mengekstrak file tersebut, maka Anda akan memperoleh empat buah file. Copy keempat file tersebut ke direktory Lib (biasanya C:\Program Files\Borland\Delphi 3\Lib).
2. Jalankan program Delphi Anda. Dari menu Component, pilih Install Component.
3. Pada bagian Unit File Name, klik Browse dan arahkan ke letak file IEBtn.pas (C:\Program Files\Borland\Delphi 3\Lib\IEBtn.pas).
4. Untuk bagian Package File Name, Anda bisa mengisi dengan C:\Program Files\Borland\Delphi 3\Lib\dclusr30.dpk.
5. Klik OK.
6. Jika penginstallan komponen berhasil maka akan nampak komponen IEButton pada bagian Win95.
Mengetahui path dari aplikasi
Dalam membuat aplikasi, kadang-kadang kita perlu mengetahui path atau letak file *.exe dari suatu program. Bagaimana caranya ?
Caranya cukup mudah sekali. Anda hanya cukup menambahkan property ExeName dari kelas TApplication.
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := Application.ExeName;
end;
Potongan program di atas akan "mencari" letak file *.exe dan menuliskannya pada komponen Label1, jika pemakai mengklik Button1.
Mengganti RegisteredOwner & Organization
Sebelum Anda meneruskan tutorial Delphi ini, Anda harus memahami seluk beluk registry terlebih dahulu. Silahkan baca sekilas ulasan registry di sini.
Tutorial ini akan menjelaskan tentang cara mengganti RegisteredOwner dan RegisteredOrganization pada komputer Anda. RegisteredOwner dan Organization tersebut dapat kita lihat pada Control Panel - System, lalu pada bagian Registerd To. Untuk mengganti RegisteredOwner secara "manual" (melalui registry editor) dapat Anda lihat di sini.
Langkah pertama sebelum memanipulasi nilai pada registry adalah dengan memberitahukan terlebih dahulu key yang akan diakses. Caranya dengan mengubah properti RootKey. Isi properti ini adalah HKey_Classes_Root, HKey_Current_User, HKey_Local_Machine, atau HKey_Users. Secara default nilai dari properti ini adalah HKey_Current_User, sehingga bila Anda tidak mengisi properti tersebut, Delphi akan menganggap sebagai HKey_Current_User.
Contoh :
var
MyReg : TRegistry;
begin
MyReg := TRegistry.Create;
MyReg.RootKey := HKey_Local_Machine;
.
MyReg.Free;
end;
Langkah kedua adalah membuka subkey yang akan dimanipulasi, yaitu dengan cara memanggil fungsi OpenKey. Deklarasi fungsi OpenKey adalah sebagai berikut :
function OpenKey(const Key: string; CanCreate: Boolean): Boolean;
Terdapat dua parameter yang harus diisi. Parameter pertama bertipe string yang merupakan subkey yang akan dibuka. Sedangkan parameter kedua bertipe boolean, yang akan menentukan apakah subkey tersebut akan dibuat atau tidak. Bila parameter ini bernilai true, maka Delphi akan membuat subkey tersebut jika di registry belum ada. Sebaliknya bila bernilai false, subkey tersebut tidak akan dibuat meskipun di registry belum ada. Fungsi OpenKey ini akan mengembalikan nilai true jika inisialisasi berhasil dan mengembalikan false jika gagal.
Untuk mengganti RegisteredOwner tersebut, subkey-nya adalah : \SOFTWARE\Microsoft\Windows\CurrentVersion\
Maka, kode yang harus kita tulis adalah :
MyReg.RootKey := HKEY_LOCAL_MACHINE;
MyReg.OpenKey := ('\SOFTWARE\Microsoft\Windows\ CurrentVersion', false);
Setelah langkah di atas, selanjutnya Anda bisa membaca atau menulis data pada registry. Untuk membaca data pada registry Anda dapat menggunakan ReadString, ReadInteger, dll (baca pd file Help-nya Delphi). Sedangkan untuk menulis data pada registry gunakan WriteString, WriteInteger, dll.
Kode di bawah ini menunjukkan cara pembacaan data pada registry, yang hasilnya dituliskan pada komponen Edit1.
Edit1.Text := MyReg.ReadString ('RegisteredOwner');
Edit2.Text := MyReg.ReadString ('RegisteredOrganization');
Sedangkan untuk menuliskan data pada registry gunakan cara berikut :
reg.WriteString ('RegisteredOwner', Edit1.Text);
reg.WriteString ('RegisteredOrganization', Edit2.Text);
Men-shutdown komputer
Untuk melakukan restart, shutdown atau log off komputer, gunakan fungsi ExitWindowsEx. Ada pun deklarasi dari fungsi ExitWindowsEx adalah sebagai berikut :
function ExitWindowsEx (uFlags : word ; dwReserved : DWORD): BOOL;
Parameter pertama menerangkan "apa yang harus dilakukan" oleh komputer. Parameter ini dapat bernilai :
Konstanta
Keterangan
EWX_RESTART Melakukan restart dengan menampilkan peringatan.
EWX_SHUTDOWN Melakukan shutdown dengan menampilkan peringatan.
EWX_LOGOFF Melakukan log off dengan menampilkan peringatan.
EWX_FORCE Melakukan shutdown tanpa menampilkan peringatan. Sehingga ada kemungkinan Anda akan kehilangan data yang belum disimpan (belum di-save).
Sedangkan parameter kedua bernilai 0.
Sehingga bila ingin melakukan shutdown cukup tulis kode berikut ini :
ExitWindowsEx (EWX_SHUTDOWN, 0);
Menjalankan aplikasi Windows lainnya
Untuk menjalankan aplikasi Windows lainnya dari program Anda, Anda bisa menggunakan salah satu fungsi Windows API, yaitu WinExec. Adapun deklarasi dari fungsi WinExec adalah sebagai berikut :
function WinExec (lpCmdLine : PChar; uCmdShow : integer) : integer;
Parameter pertama merupakan nama file *.exe yang akan dijalankan beserta pathnya.
Parameter kedua menunjukkan bagaimana aplikasi tersebut dijalankan. Parameter ini dapat bernilai :
Parameter
Arti
SW_SHOWMINIMIZED Menampilkan aplikasi secara minimal (berbentuk icon)
SW_SHOWMAXIMIZED Menampilkan aplikasi dengan (ukuran) window maksimal
SW_SHOWNORMAL Menampilkan aplikasi dengan window normal
* Ada sembilan nilai parameter lainnya yang dapat Anda lihat pada referensi Windows API pada bagian ShowWindow
Fungsi WinExec ini akan mengembalikan nilai lebih besar dari 31 jika aplikasi berhasil dijalankan. Sedangkan bila gagal, nilai yang dikembalikan kurang dari atau sama dengan 31. Detail dari nilai kembalian adalah :
Nilai Kembalian
Arti
0 Windows mengalami out of memory atau resources
ERROR_BAD_FORMAT File yang dijalankan bukan merupakan file aplikasi Windows
ERROR_FILE_NOT_FOUND File yang dijalankan tidak ditemukan
ERROR_PATH_NOT_FOUND Path file salah
Contoh berikut mungkin akan memperjelas Anda.
procedure TForm1.Button1Click(Sender: TObject);
begin
if (WinExec ('C:\Windows\notepad.exe',
SW_SWOWMAXIMIZED) < 32) then
MessageDlg ('Gagal menjalankan Notepad',
mtError, [mbOK],0);
end;
Pada contoh di atas, pada saat pemakai mengklik Button1 maka program akan menjalankan file Notepad.exe yang terletak di C:\Windows.
Menyembunyikan taskbar
Contoh program di bawah ini akan menunjukkan bagaimana cara untuk menyembunyikan taskbar melalui program yang dibuat dengan Delphi.
Untuk menyembunyikan dan menampilkan taskbar kita dapat menggunakan salah satu dari fungsi Windows API yaitu ShowWindow yang deklarasinya sebagai berikut :
function ShowWindow (hwnd : HWND; nCmdShow : integer) : Boolean;
Parameter pertama dari fungsi ShowWindow merupakan handle window yang akan ditampilkan atau disembunyikan. Parameter kedua adalah bagaimana window tersebut ditampilkan. Yang menjadi pertanyaan kita, darimana kita mendapatkan handle window dari taskbar ? Caranya adalah dengan memanggil fungsi FindWindow.
function FindWindow (lpClassName, lpWindowName : PChar) : HWND;
Parameter pertama merupakan nama kelas jendela (window class). Pada Delphi nama ini identik dengan nama kelas dari Form, misalnya TForm1, TForm2, dst. Parameter kedua adalah caption dari form (TForm.Caption).
Kembalian dari fungsi FindWindow adalah handle form yang dicari. Bila Windows tidak menemukan form yang dimaksud, FindWindow akan mengembalikan nilai 0.
Untuk mencari handle form dari taskbar :
FindWindow('Shell_TrayWnd',Nil);
Parameter pertama dari FindWindow diisi dengan Shell_TrayWnd yang merupakan window class dari taskbar. Sedangkan parameter kedua diisi dengan Nil yang menunjukkan bahwa form taskbar tidak mempunyai caption.
Kode selengkapnya untuk menyembunyikan taskbar adalah sbb :
procedure TForm1.Button1Click(Sender: TObject);
var
hTaskBar :Thandle;
begin
hTaskBar := FindWindow('Shell_TrayWnd',Nil); ShowWindow(hTaskBar,Sw_Hide);
end;
Untuk menampilkan taskbar langkahnya sama dengan yang di atas. Yang berbeda hanya parameter kedua dari ShowWindow, yang semula SW_HIDE diganti dengan SW_NORMAL. Kode lengkapnya adalah sebagai berikut :
procedure TForm2.Button1Click(Sender: TObject);
var
hTaskBar :Thandle;
begin
hTaskBar := FindWindow('Shell_TrayWnd',Nil); ShowWindow(hTaskBar,Sw_Normal);
end;
download file di bawa ini
Download Contoh (http://www.zid*du.com/download/12518752/taskbar.zip.html)
Menjalankan applet pada control panel
Untuk menjalankan berbagai applet pada control panel, Anda dapat menggunakan salah satu fungsi dari Windows API yaitu WinExec.
function WinExec (lpCmdLine : PChar; uCmdShow : integer) : integer;
Lihat keterangan fungsi WinExec di sini.
Misalnya Anda ingin membuka Add/Remove Program maka Anda harus menuliskan code seperti ini :
procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec ('C:\WINDOWS\CONTROL.EXE appwiz.cpl, Add/Remove Programs,1', SW_NORMAL);
end;
Selain itu Anda juga bisa membuat fungsi sendiri untuk menjalankan applet pada control panel.
download contohnya di bawa ini
Download Now (http://adf.ly/B1Wp)
</div>
Di sini kami akan memberikan contoh cara menginstall komponen baru pada Delphi 3. Sebelumnya download terlebih dahulu komponen IEButton. Adapun caranya adalah sebagai berikut :
1. Setelah Anda mendownload dan mengekstrak file tersebut, maka Anda akan memperoleh empat buah file. Copy keempat file tersebut ke direktory Lib (biasanya C:\Program Files\Borland\Delphi 3\Lib).
2. Jalankan program Delphi Anda. Dari menu Component, pilih Install Component.
3. Pada bagian Unit File Name, klik Browse dan arahkan ke letak file IEBtn.pas (C:\Program Files\Borland\Delphi 3\Lib\IEBtn.pas).
4. Untuk bagian Package File Name, Anda bisa mengisi dengan C:\Program Files\Borland\Delphi 3\Lib\dclusr30.dpk.
5. Klik OK.
6. Jika penginstallan komponen berhasil maka akan nampak komponen IEButton pada bagian Win95.
Mengetahui path dari aplikasi
Dalam membuat aplikasi, kadang-kadang kita perlu mengetahui path atau letak file *.exe dari suatu program. Bagaimana caranya ?
Caranya cukup mudah sekali. Anda hanya cukup menambahkan property ExeName dari kelas TApplication.
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := Application.ExeName;
end;
Potongan program di atas akan "mencari" letak file *.exe dan menuliskannya pada komponen Label1, jika pemakai mengklik Button1.
Mengganti RegisteredOwner & Organization
Sebelum Anda meneruskan tutorial Delphi ini, Anda harus memahami seluk beluk registry terlebih dahulu. Silahkan baca sekilas ulasan registry di sini.
Tutorial ini akan menjelaskan tentang cara mengganti RegisteredOwner dan RegisteredOrganization pada komputer Anda. RegisteredOwner dan Organization tersebut dapat kita lihat pada Control Panel - System, lalu pada bagian Registerd To. Untuk mengganti RegisteredOwner secara "manual" (melalui registry editor) dapat Anda lihat di sini.
Langkah pertama sebelum memanipulasi nilai pada registry adalah dengan memberitahukan terlebih dahulu key yang akan diakses. Caranya dengan mengubah properti RootKey. Isi properti ini adalah HKey_Classes_Root, HKey_Current_User, HKey_Local_Machine, atau HKey_Users. Secara default nilai dari properti ini adalah HKey_Current_User, sehingga bila Anda tidak mengisi properti tersebut, Delphi akan menganggap sebagai HKey_Current_User.
Contoh :
var
MyReg : TRegistry;
begin
MyReg := TRegistry.Create;
MyReg.RootKey := HKey_Local_Machine;
.
MyReg.Free;
end;
Langkah kedua adalah membuka subkey yang akan dimanipulasi, yaitu dengan cara memanggil fungsi OpenKey. Deklarasi fungsi OpenKey adalah sebagai berikut :
function OpenKey(const Key: string; CanCreate: Boolean): Boolean;
Terdapat dua parameter yang harus diisi. Parameter pertama bertipe string yang merupakan subkey yang akan dibuka. Sedangkan parameter kedua bertipe boolean, yang akan menentukan apakah subkey tersebut akan dibuat atau tidak. Bila parameter ini bernilai true, maka Delphi akan membuat subkey tersebut jika di registry belum ada. Sebaliknya bila bernilai false, subkey tersebut tidak akan dibuat meskipun di registry belum ada. Fungsi OpenKey ini akan mengembalikan nilai true jika inisialisasi berhasil dan mengembalikan false jika gagal.
Untuk mengganti RegisteredOwner tersebut, subkey-nya adalah : \SOFTWARE\Microsoft\Windows\CurrentVersion\
Maka, kode yang harus kita tulis adalah :
MyReg.RootKey := HKEY_LOCAL_MACHINE;
MyReg.OpenKey := ('\SOFTWARE\Microsoft\Windows\ CurrentVersion', false);
Setelah langkah di atas, selanjutnya Anda bisa membaca atau menulis data pada registry. Untuk membaca data pada registry Anda dapat menggunakan ReadString, ReadInteger, dll (baca pd file Help-nya Delphi). Sedangkan untuk menulis data pada registry gunakan WriteString, WriteInteger, dll.
Kode di bawah ini menunjukkan cara pembacaan data pada registry, yang hasilnya dituliskan pada komponen Edit1.
Edit1.Text := MyReg.ReadString ('RegisteredOwner');
Edit2.Text := MyReg.ReadString ('RegisteredOrganization');
Sedangkan untuk menuliskan data pada registry gunakan cara berikut :
reg.WriteString ('RegisteredOwner', Edit1.Text);
reg.WriteString ('RegisteredOrganization', Edit2.Text);
Men-shutdown komputer
Untuk melakukan restart, shutdown atau log off komputer, gunakan fungsi ExitWindowsEx. Ada pun deklarasi dari fungsi ExitWindowsEx adalah sebagai berikut :
function ExitWindowsEx (uFlags : word ; dwReserved : DWORD): BOOL;
Parameter pertama menerangkan "apa yang harus dilakukan" oleh komputer. Parameter ini dapat bernilai :
Konstanta
Keterangan
EWX_RESTART Melakukan restart dengan menampilkan peringatan.
EWX_SHUTDOWN Melakukan shutdown dengan menampilkan peringatan.
EWX_LOGOFF Melakukan log off dengan menampilkan peringatan.
EWX_FORCE Melakukan shutdown tanpa menampilkan peringatan. Sehingga ada kemungkinan Anda akan kehilangan data yang belum disimpan (belum di-save).
Sedangkan parameter kedua bernilai 0.
Sehingga bila ingin melakukan shutdown cukup tulis kode berikut ini :
ExitWindowsEx (EWX_SHUTDOWN, 0);
Menjalankan aplikasi Windows lainnya
Untuk menjalankan aplikasi Windows lainnya dari program Anda, Anda bisa menggunakan salah satu fungsi Windows API, yaitu WinExec. Adapun deklarasi dari fungsi WinExec adalah sebagai berikut :
function WinExec (lpCmdLine : PChar; uCmdShow : integer) : integer;
Parameter pertama merupakan nama file *.exe yang akan dijalankan beserta pathnya.
Parameter kedua menunjukkan bagaimana aplikasi tersebut dijalankan. Parameter ini dapat bernilai :
Parameter
Arti
SW_SHOWMINIMIZED Menampilkan aplikasi secara minimal (berbentuk icon)
SW_SHOWMAXIMIZED Menampilkan aplikasi dengan (ukuran) window maksimal
SW_SHOWNORMAL Menampilkan aplikasi dengan window normal
* Ada sembilan nilai parameter lainnya yang dapat Anda lihat pada referensi Windows API pada bagian ShowWindow
Fungsi WinExec ini akan mengembalikan nilai lebih besar dari 31 jika aplikasi berhasil dijalankan. Sedangkan bila gagal, nilai yang dikembalikan kurang dari atau sama dengan 31. Detail dari nilai kembalian adalah :
Nilai Kembalian
Arti
0 Windows mengalami out of memory atau resources
ERROR_BAD_FORMAT File yang dijalankan bukan merupakan file aplikasi Windows
ERROR_FILE_NOT_FOUND File yang dijalankan tidak ditemukan
ERROR_PATH_NOT_FOUND Path file salah
Contoh berikut mungkin akan memperjelas Anda.
procedure TForm1.Button1Click(Sender: TObject);
begin
if (WinExec ('C:\Windows\notepad.exe',
SW_SWOWMAXIMIZED) < 32) then
MessageDlg ('Gagal menjalankan Notepad',
mtError, [mbOK],0);
end;
Pada contoh di atas, pada saat pemakai mengklik Button1 maka program akan menjalankan file Notepad.exe yang terletak di C:\Windows.
Menyembunyikan taskbar
Contoh program di bawah ini akan menunjukkan bagaimana cara untuk menyembunyikan taskbar melalui program yang dibuat dengan Delphi.
Untuk menyembunyikan dan menampilkan taskbar kita dapat menggunakan salah satu dari fungsi Windows API yaitu ShowWindow yang deklarasinya sebagai berikut :
function ShowWindow (hwnd : HWND; nCmdShow : integer) : Boolean;
Parameter pertama dari fungsi ShowWindow merupakan handle window yang akan ditampilkan atau disembunyikan. Parameter kedua adalah bagaimana window tersebut ditampilkan. Yang menjadi pertanyaan kita, darimana kita mendapatkan handle window dari taskbar ? Caranya adalah dengan memanggil fungsi FindWindow.
function FindWindow (lpClassName, lpWindowName : PChar) : HWND;
Parameter pertama merupakan nama kelas jendela (window class). Pada Delphi nama ini identik dengan nama kelas dari Form, misalnya TForm1, TForm2, dst. Parameter kedua adalah caption dari form (TForm.Caption).
Kembalian dari fungsi FindWindow adalah handle form yang dicari. Bila Windows tidak menemukan form yang dimaksud, FindWindow akan mengembalikan nilai 0.
Untuk mencari handle form dari taskbar :
FindWindow('Shell_TrayWnd',Nil);
Parameter pertama dari FindWindow diisi dengan Shell_TrayWnd yang merupakan window class dari taskbar. Sedangkan parameter kedua diisi dengan Nil yang menunjukkan bahwa form taskbar tidak mempunyai caption.
Kode selengkapnya untuk menyembunyikan taskbar adalah sbb :
procedure TForm1.Button1Click(Sender: TObject);
var
hTaskBar :Thandle;
begin
hTaskBar := FindWindow('Shell_TrayWnd',Nil); ShowWindow(hTaskBar,Sw_Hide);
end;
Untuk menampilkan taskbar langkahnya sama dengan yang di atas. Yang berbeda hanya parameter kedua dari ShowWindow, yang semula SW_HIDE diganti dengan SW_NORMAL. Kode lengkapnya adalah sebagai berikut :
procedure TForm2.Button1Click(Sender: TObject);
var
hTaskBar :Thandle;
begin
hTaskBar := FindWindow('Shell_TrayWnd',Nil); ShowWindow(hTaskBar,Sw_Normal);
end;
download file di bawa ini
Download Contoh (http://www.zid*du.com/download/12518752/taskbar.zip.html)
Menjalankan applet pada control panel
Untuk menjalankan berbagai applet pada control panel, Anda dapat menggunakan salah satu fungsi dari Windows API yaitu WinExec.
function WinExec (lpCmdLine : PChar; uCmdShow : integer) : integer;
Lihat keterangan fungsi WinExec di sini.
Misalnya Anda ingin membuka Add/Remove Program maka Anda harus menuliskan code seperti ini :
procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec ('C:\WINDOWS\CONTROL.EXE appwiz.cpl, Add/Remove Programs,1', SW_NORMAL);
end;
Selain itu Anda juga bisa membuat fungsi sendiri untuk menjalankan applet pada control panel.
download contohnya di bawa ini
Download Now (http://adf.ly/B1Wp)
</div>