July 25, 2024

Membuat Aplikasi Hide Desktop Icon Windows Menggunakan Delphi

1 min read

Pada pembahasan kali ini kita akan membuat sebuah aplikasi sederhana yang fungsinya¬† untuk menyembunyikan icon desktop pada windows meskipun pada dasarnya sistem sudah menyediakan cara menyembunyikannya. Tidak perlu panjang lebar, yuk. Mari kita buat bersama-sama…. :).

Langkah 1

Buka Delphi 2007.

Langkah 2

Klik Menu File -> New -> Pilih VCL Form Application.

delphi1

Langkah 3

Letakkan komponen 3 TButton pada Form1 :

delphitabel

delphi2

Langkah 4

Ketik Perintah berikut pada Button Hide Icon:

[sourcecode]

procedure TForm1.btn_hideClick(Sender: TObject);

begin

ShowWindow(FindWindow(nil,’Program Manager’),SW_HIDE);

end;

[/sourcecode]


Ketik Perintah berikut pada Button Show Icon:

[sourcecode]

procedure TForm1.btn_showClick(Sender: TObject);

begin

ShowWindow(FindWindow(nil,’Program Manager’),SW_SHOW);

end;

[/sourcecode]

Ketik Perintah berikut pada Button Exit:

[sourcecode]

procedure TForm1.btn_exitClick(Sender: TObject);

begin

close;

end;

[/sourcecode]

Langkah 5

Hasil Akhir.

[fvplayer src=’http://news.palcomtech.com/wp-content/uploads/Hide-Icon1.flv’ width=540 height=380]

Leave a Reply

Your email address will not be published. Required fields are marked *

Copyright © All rights reserved. | Newsphere by AF themes.