kardes çok güzel çok saol şu delphiyi banada ögretebilinmi

Forma bir ListBox ve Edit ekleyin. Kod: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class Button1: TButton; ListBox1: TListBox; procedure Button1Click ; procedure ListBox1DblClick ; private public end; var Form1: TForm1; implementation Function EnumWindowsProc : Bool; stdcall; export; var Title, ClassName: array of char; PrID : Integer; begin Result := True; GetWindowText(wHandle, Title, 255); GetClassName(wHandle, ClassName, 255); GetWindowThreadProcessId ; if IsWindowVisible then lb. Items. Add(string ; end; procedure TForm1. Button1Click ; begin EnumWindows(@EnumWindowsProc, Integer(Listbox1)); end; procedure TForm1. ListBox1DblClick ; var selstr:string; begin selstr:=ListBox1. Items ; ShowWindow(FindWindow(nil, PChar , SW_NORMAL); SetForegroundWindow(FindWindow(nil, PChar ; end; end.

usta ne işe yarar bilmiyorum ama yeni başladım üğrenmek için önüme geleni yapıyorum eline sağlık..

Suk1y3n bu program sırayla açık pencerelerdeki aşlıkları mı alıyor yoksa bana mı öyle geldi. WHandle görünce öyle zannetim de.