Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
Turbo Delphi für Win32
|
Re: Anstatt ID den Namen verwenden?
12. Jul 2006, 22:59
Delphi-Quellcode:
function EnumProc(StHandle: HWND; lines: TStrings): boolean; stdcall;
const
MAXLENGTH: Integer = 200;
var
buffer, desc: array[0..MAXLENGTH] of char;
begin
GetClassname(StHandle, buffer, MAXLENGTH);
GetWindowText(StHandle, desc, MAXLENGTH);
lines.add(format('ID: %d, Class: %s, Text: %s', [GetDlgCtrlID(StHandle), buffer, desc]));
EnumChildWindows(StHandle, @EnumProc, Integer(Lines));
Result := true;
end;
Manuel Eberl „The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
|
|
Zitat
|