Sayfayı Yazdır | Pencereyi Kapat

tüm pencereleri simge durumuna getirmek

Nereden Yazdırıldığı: Datakent
Kategori: Diğer bölümler
Forum Adı: Borland Delphi
Forum Tanımlaması: Borland Delphi ile ilgili soru / sorun / paylaşım bölümü
URL: http://forum.datakent.com/forum_posts.asp?TID=1555
Tarih: 18.Nisan.2024 Saat 06:22


Konu: tüm pencereleri simge durumuna getirmek
Mesajı Yazan: murat turan
Konu: tüm pencereleri simge durumuna getirmek
Mesaj Tarihi: 31.Ekim.2008 Saat 12:24
//delphi ile açık olan tüm pencereleri simge durumuna getirmek veya önceki konuma getirmek


procedure AllWindows(minimize:Boolean);
var
  hwndx:HWND;
begin
  hwndx := FindWindow('Shell_TrayWnd',nil);

  if hwndx <> 0 then
  begin
   if minimize then
      PostMessage( hwndx, WM_COMMAND, $019F, 0 )
      else PostMessage( hwndx, WM_COMMAND, $01A0, 0 );
  end;
end;



-------------
http://www.kasatakip.com - Kasa Takip  |  http://www.caritakip.com - Cari Takip  |  http://www.evraktakip.com - Evrak Takip  |  http://www.etasqlmobil.com - ETA SQL Mobil


Sayfayı Yazdır | Pencereyi Kapat