| zur Startseite | Infos für Behinderte | Behindertensoftware | Forum | Programmierarchiv |
| Webguide | Markus privat | Kontakt | Download | Gästebuch |
| Online Games | Entstehungsgeschichte |
Taskliste aller sichtbaren Fenster erstellen
|
Hier wird demonstriert, wie man von allen sichtbaren Fenstern eine Taskliste erstellt: function EnumWindProc(Wnd: HWND; I: Integer): Boolean; stdcall;const CLength = 199; var szTitel: array[0..CLength] of Char; begin GetWindowText(WND, szTitel, CLength); if (szTitel <> '') and (IsWindowVisible(wnd)) then Form1.ListBox1.Items.Add(szTitel); //Alle Titel Result := True; end; procedure TForm1.ListBox1Click(Sender: TObject); begin Anwendung := Listbox1.Items[ListBox1.Itemindex]; end; procedure TForm1.FormShow(Sender: TObject); begin ListBox1.Clear; EnumWindows(@EnumWindProc, 0); end; |