Forum: Win32/Win64 API (native code)
Delphi
by himitsu,
12. Jul 2006
function EnumProc(StHandle: HWND; lines: TStrings): longbool; stdcall;
var
buffer: array of char;
desc: array of char;
begin
GetClassname(StHandle, buffer, SizeOf(buffer));
GetWindowText(StHandle, desc, SizeOf(dest));
lines.add(format('ID: %d, Class: %s, Text: %s', ));
EnumChildWindows(StHandle, @EnumProc, Integer(Lines));
Result := true;
Forum: Win32/Win64 API (native code)
Delphi
by himitsu,
27. Jun 2006
Wozu erst über 'nen Namen suchen ... wie wäre es mit 'ner Konstante?
Const MeinEdit = 788380;
procedure TForm1.Button5Click(Sender: TObject);
var
hWnd, hEdit: cardinal;
buffer: array of Char;
begin
hWnd := FindWindow(nil, 'Fax 1.1');