Sembunyikan Item Desktop

Salam klikq mas2..mbak2 semuanya...

sering kita merasa risih sama item yang tampil pada desktop kita,terlebih item itu banyak....pastinya akan semakin membuat anda risih,ruwet dan sebagainya.....dengan tips di bawah ini kita akan menyembunyikan item yang ada di desktop kita....oke langsung aja...

buka new project kemudian isikan code dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowWindow(FindWindow(nil,'program manager'),sw_hide);
end;

kode diibawah ini untuk menampilkan item:

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowWindow(FindWindow(nil,'program manager'),sw_show);
end;

end.









klik run
sembunyikan

tampilkan

selamat mencoba cuy.....hhhehhee

salam klikq

Read more »

MINIMIZE SEMUA WINDOWS

salam klikq mas2..mbak2 semuanya.....

sering kita merasa malas untuk meminimize program yg kita buka,terlebih program yg kita buka lebih dari 1 program,tentu akan membutuhkan waktu yg lumayan lama bukan jika kita harus menutupnya satu demi satu....disini delphi memiliki fasilitas yg dapat mempermudah meminimize program anda...disini anda harus mencari handle windows yg sedang aktif...kemudian anda dapat mengirimkan pesan dengan postmessage untuk meminimize semuanya....ah mas teori aja kelamaan...keburu ngantuk neh....hhehhehe..ywd langsung aja praktekin ini.....

buka new project delphi...kemudian isikan code dibawah ini di event onclick button...

procedure TForm1.Button1Click(Sender: TObject);
var
  h : HWND;
begin
  h := Handle;
  while h > 0 do
  begin
    {mengecek visibility state dari windows}
    if IsWindowVisible(h) then
      //minimize windows
        PostMessage(h,WM_SYSCOMMAND,SC_MINIMIZE,0);
        //mencari handle dari windows selanjutnya
        h:= GetNextWindow(h,GW_HWNDNEXT);
  end;
end;

end.

klik run....

dan semua program anda akan terminimize secara cepat....jadi lebih mudah bukan...
semoga bermanfaat....

salam klikq...

Read more »

MENDISABLEKAN FUNGSI MENU CLOSE

MENDISABLE FUNGSI MENU CLOSE

Hallo smua....disini kita akan mendisablekan menu close yang biasanya tinggal bersama 3 tmnnya di pojok kanan atas program anda....trik ini bisa anda gunakan untuk sedikit ‘memaksa’ para pengguna program anda dengan hanya menutup program dengan menu yang telah anda sediakan......

1. bikin proyek baru,kemudian pada event formcreate anda dapat menambahkan code dibawah ini :

procedure tform1.formcreate(sender:tobject);

var

  closehilang : HMENU;

begin

  closehilang := GetSystemMenu(form1.Handle,false);

if (closehilang <> 0) then DeleteMenu(closehilang,    SC_CLOSE,MF_BYCOMMAND);

end;

end.

Kemudian pencet tombol f9/run....dan hasilnya

Semoga bermanfaat bagi anda........terima kash telah mengunjungi blog ini...

Salam klikq

Read more »

MENANGKAP SCREEN DESKTOP DENGAN DELPHI

MENANGKAP SCREEN DESKTOP

Salam klikq........

Sering kita menangkap screen desktop kita yang sedang aktif dengan menekan print screen dan mempastenya pada image editor atau ms. Word....nah dengan konsep ini kita akan mencobanya menangkap screen capture desktop kita dengan delphi 7 dan menyimpannya dengan format  BMP.

Oke2....langsung aja yah.....

Pertama siapkan delphi 7 dulu....klo anda belum punya silahkan klik disini

Klo sudah siap buka proyek baru pd delphi anda...kita membutuhkan 2 komponent saja untuk screen capture ini...apa mas 2 saja..iya 2 saja simple kan....hhehhe

Anda hanya membutuhkan tbutton dan tsavepicturedialog.

Tsavepicturedialog itu dimana....anda bisa klik components pallete--> pilih dialog -->tsavepicturedialog.

.
 

Pada event onclick di tbutton tambahkan kode dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);

var

  dcdesk : HDC;

  bmp :tBITMAP;

begin

  {membuat bitmap}

  bmp :=TBitmap.Create;

  {mengatur lebar tinggi dari bitmap}

      bmp.Height := Screen.Height;

      bmp.Width := Screen.Width;

  {mencari dan mendapatkan desktop DC handle}

        dcdesk := GetWindowDC(GetDesktopWindow);

        BitBlt(bmp.Canvas.Handle,0,0,screen.Width,screen.Height,dcdesk,0,0,SRCCOPY);

        SavePictureDialog1.Title :='simpan hasil capture';

  {menyimpan bitmap}

    if SavePictureDialog1.Execute then

      bmp.SaveToFile(SavePictureDialog1.FileName);

      ReleaseDC(GetDesktopWindow,dcdesk);

      bmp.Free;

end;

end.

Kemudian klik run/F9  klik capture-->simpan pada folder yang anda inginkan...

 

Klik save.

Nah kita sudah dapat membikin software untuk screen capture...terima kasih sudah mengunjungi blog ini...jangan lupa tinggali komentar yeeeeeeee....

Salam klikq

Read more »

welcome in kliq.blogspot.com

http://klikq.blogsppot.com

hello world...

selamat datang di klikq.blogspot.com,blog ini akan menampilkan tutorial delphi.....jangan sungkan2 untuk mengunjung klikq....


salam klikq


adhitya

Read more »