Sabtu, 14 Mei 2011

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; 
Baca selengkapnya »
Diposting oleh di Tidak ada komentar:
Label:

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_RESTARTMelakukan restart dengan menampilkan peringatan.
EWX_SHUTDOWNMelakukan shutdown dengan menampilkan peringatan.
EWX_LOGOFFMelakukan 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);
Diposting oleh di Tidak ada komentar:
Label:

Mengganti RegisteredOwner & Organization

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); 

Baca selengkapnya »
Diposting oleh di Tidak ada komentar:
Label:

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.
Diposting oleh di Tidak ada komentar:
Label:

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.
Diposting oleh di Tidak ada komentar:
Label:

Tutorial Delphi

Tutorial Delphi


  1. Menginstall komponen baru
  2. Mengetahui path dari aplikasi
  3. Mengganti RegisteredOwner dan Organization
  4. Men-shutdown komputer
  5. Menjalankan aplikasi Windows lainnya
  6. Menyembunyikan taskbar
  7. Menjalankan applet pada control panel
  8. Mengecek disk pada disk drive
  9. Menyembunyikan icon desktop
  10. Membuat splash screen
  11. Tips & trik seputar hint
  12. Membuat teks icon desktop yg transparan
  13. Refresh desktop
  14. Menyembunyikan caption bar
  15. Memindah form tanpa caption bar
  16. Membuka Control Panel
  17. Memberi warna record aktif pada TDBGrid
  18. Menyembunyikan program dari task list
  19. Warna pada DBGrid sesuai dengan data
  20. Akses peralatan luar lewat Parallel Printer Port
  21. Mengetahui sudah berapa lama Windows dijalankan
  22. Membuat AutoScroll pada palette
  23. Feature rahasia pada Delphi 5
  24. Membuat form gradient
  25. Membuat rounded form
  26. Mengganti icon folder
  27. Membuat alias baru
  28. Membuat group pada laporan
  29. Menambahkan form pada DLL
  30. Membuat efek flat
  31. Mendisable menu close
  32. Menambahkan fasilitas skin pada aplikasi dengan SXSkinComponents
Diposting oleh di Tidak ada komentar:

Free E-Book Delphi Programing

Ada ebook tentang delphi bagus (delphi database), ini Ane share kepada antum...  Ane dapat dari blog siapaaa???? Ane lupa lagi ah..., pokoknya buat pengunjungku tercinta deh!
nie Buku cocok bangeuddd buat ente-ente yang pengen bikin database... Pokoke Mantaaaap Gan...!!!
Download Disini!

ya... lumayan buat Antum smua yang lagi blajar.. moga bermanfaat ya!!

Diposting oleh di Tidak ada komentar:
Label:
Langganan: Postingan (Atom)