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);
Contoh program di bawah ini akan menunjukkan bagaimana cara untuk menyembunyikan icon pada desktop melalui program yang dibuat dengan Delphi.
Keterangan tentang fungsi Show Window dan FindWindow dapat di lihat di sini.
Langka-langnya adalah :
1. Buatlah sebuah form sepeti pada gambar 17 berikut ini.
2. Pada tombol Hiden Icon masukan code berikut ini.
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);
end;
pada tombol Show icon codenya adalah sebagai berikut :
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW);
end;
3. Jalankan program yang telah dibuat dan lihat hasil kerja kamu.
Sebelum memulai Belajar cara mebuat Spalash Screen, Ada baiknya kita mengetahui terlebih dahulu apa itu splash screen. Splash screen merupakan tampilan yang kita lihat pertama kali waktu kita menjalankan sebuah aplikasi. Splash screen ini biasanya ditampilkan untuk mengurangi kejenuhan user sewaktu program masih dalam tahap inisialisasi. pada kesempatan ini saya akan membahas bagai mana membuat sebuah splash screen dengan mengunakan Delphi 7
Untuk membuat splash scren tersebut caranya sebagai berikut :
1.Bikin dulu form utamanya.
2.Tambahkan form yang akan digunakan sebagai splash screen (dari menu File, pilih New Form). Beri nama form tersebut dengan FrmSplash.
3.Tambahkan komponen Timer (terletak pada tab Win32), beri nama dengan tmMainTimer.
4.Tambahkan kode berikut pada events onTimer dari komponen Timer tersebut :
tmMainTimer.Enabled := False;
5.Dari menu Project, pilih Options.
6.Pindah ke tab Forms.
7.Dari bagian auto create forms akan terlihat dua buah form. Pilih Form yang akan
digunakan sebagai splash screen dan klik tombol ">" untuk memindah form splash
screen ke bagian Available forms.
8.Kalau sudah klik OK.
9.Sekarang dari menu View, pilih Project Source. Pada program utama buatlah form
splash screen sebelum inisialisasi dilakukan.
Untuk lebih jelasnya lihat potongan program berikut ini lalu copy paste di form Delphi coba RUN dan lihat hasil kerja kamu :
program Project1;
uses Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {FrmSplash};
{$R *.RES}
begin
FrmSplash := TFrmSplash.Create(Application);
FrmSplash.Show;
FrmSplash.Update;
while FrmSplash.tmMainTimer.Enabled do Application.ProcessMessages;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
FrmSplash.Hide;
FrmSplash.Free; // menghapus form splash scren dr memory
Application.Run;
end.
Kita bisa membuat text icon pada desktop kita transparan sehingga yang terlihat hanyala icon saja. Buatlah sebuah form dengan menggunakan dua tombol dan masukan code berikut.
procedure TForm1.GetDesktopListViewHandle;
var
s1: string;
begin
hLV := FindWindow('ProgMan', nil);
hLV := GetWindow(hLV, GW_CHILD);
hLV := GetWindow(hLV, GW_CHILD);
SetLength(s1, 40);
GetClassName(hLV, PChar(s1), 39);
if PChar(s1) <> 'SysListView32' then
ShowMessage('Failed');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
xColor : TColor;
begin
GetDesktopListViewHandle;
xColor := ListView_GetTextColor(hLV);
ListView_SetTextColor(hLV, xColor);
xColor := ListView_GetTextBkColor(hLV);
ListView_SetTextBkColor(hLV, xColor);
ListView_SetTextBkColor(hLV, $FFFFFFFF);
end;
Dengan menggunakan Delphi 7 kita juga bias membuat sebuh calculator sederhana,
Langka-langkanya adalah sebagi berikut :
1.Buatlah sebuah Form seperti yang terlihat pada gambar 11 dibawa ini.
Pada program berikut ini kita akan menggunakan empat buah botton, tiga buah
edit dan satu label. Ubah Caption botton pada properties sesuai dengan yang
kita inginkan, hapus edit pada properties-text dang anti label dengan hasil
perhitungan.
2.Doble Clik tombol Tamba dan masukan code dibawah ini pada bidang code editor.
procedure TForm1.Button1Click(Sender: TObject);
var A,B,C:INTEGER;
begin
A:=STRTOINT(EDIT1.TEXT);
B:=STRTOINT(EDIT2.TEXT);
C:=A+B;
EDIT3.Text:=INTTOSTR(C)
end;
Note : Untuk
C pada tombol Kurang codenya menjadi
C:=A-B;
Pada tombol Kali codenya menjadi
C:=A*B;
Sedangkan pada tombol Bagi codenya menjadi
C:=A div B;
Langka-langkanya adalah sebagai berikut :
1.Disainla sebuah for seperti pada gambar 14 dibawa ini. Program ini
hanya mengunakan satu edit, dua tombol dan tiga buah label.
2.Ketikan code berikut pada code editor.
Untuk tombol Proses ada ketikan code berikut :
procedure TForm1.Button1Click(Sender: TObject);
var x : real;
AkarDariX : real;
begin
// ubah input dari Edit1 yg bertipe string ke tipe real
x := StrToFloat (Edit1.Text);
// hitung akar dari x, disimpan sbg AkarDariX
AkarDariX := sqrt (x);
// tampilkan keterangan
Label4.Caption := 'Akar dari ' +' ' + Edit1.Text+ ' ' + 'adalah';
// hasil perhitungan
Label2.Caption := FloatToStr (AkarDariX);
// memindah fokus ke Edit1
Edit1.SetFocus;
end;
Untuk tombol keluar anda masukan tombol berikut ini :
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
End;
3.Setelah selesai mengetikan code diatas jalankan program tersebut.
Adacara yang lebih muda untuk meruba warna form pada program Delphi yaitu dengan mengunakan palet warna, pada program berikut ini hanya menggunakan satu tombol yang dipergunajakan untuk menjalankan Colordialog. Adapun caranya adalah sebagai berikut :
1. Buatlah sebuah form seperti pada gambar 15.pada progrsm ini kita akan menggunakan fungsi colordialog yang bisa diambil pada component pallete dialogs.
2. Setelah selesai mendesain form, doble click tombol Uba Warna Form dan masukan code berikut pada bidang code editor :
procedure TForm1.Button1Click(Sender: TObject);
begin
If colordialog1.Execute then
Form1.Color := Colordialog1.Color;
end;
3. Setelah selesai jalankan program dengan menekan F9 pada keyboard atau dengan meclik tombol Run pada panel.
Kita bisa memprcantik tampilan program yang kita buat dengan membuat text yang berjalan dengan memanfaatkan fungsi timer. Langka-langkaya adalah sebagai brikut :
1. Buatlah form sepeti pada gamar 16. Gunakan label untuk membuat text yang akan kita jalankan. Caranya rubah pada properties caption ganti label1 dengan text yang kita inginkan. Untuk mengatur kecepatan text saat berjalan, click timer1 ganti properties interval menjadi 5 yang terdapat pada object inspector.
2. Setelah selesai membuat form doble click timer1 dan masukan code berikut pada code editor.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.left = -245 then label1.Left := 280;
Label1.Left := Label1.Left-1;
end;
3. Setelah selesai jalankan program dengan mengclik tombol Run pada panel atau tekan F9 pada keyboard.
