tüm pencereleri simge durumuna getirmek


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

Yazar	Mesaj Konuyu Paylaş Konuyu Yazdır Google Delicious Digg StumbleUpon Windows Live Yahoo Bookmarks reddit Facebook MySpace Newsvine Furl Konu Bilgi Ara Konu Ayarları Yanıt Yaz Yeni Konu
murat turan Üye Profili Özel Mesaj Yolla Bu kullanıcıya ait mesajları bul Üyenin Web Sitesie Git Arkadaş Listeme Ekle Admin Group Datakent Kayıt Tarihi: 01.Ekim.2003 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 1797	Alıntı Cevapla Konu: tüm pencereleri simge durumuna getirmek Gönderim Zamanı: 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;
	Kasa Takip \| Cari Takip \| Evrak Takip \| ETA SQL Mobil