Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
Delphi 12 Athens
|
Re: Anstatt ID den Namen verwenden?
12. Jul 2006, 23:17
Code:
function EnumProc(StHandle: HWND; lines: TStrings): longbool; stdcall;
var
buffer: array[0..100] of char;
[b]desc: array[0..1000] of char;[/b]
begin
GetClassname(StHandle, buffer, [b]SizeOf(buffer)[/b]);
GetWindowText(StHandle, desc, [b]SizeOf(dest)[/b]);
lines.add(format('ID: %d, Class: %s, Text: %s', [GetDlgCtrlID(StHandle), buffer, desc]));
EnumChildWindows(StHandle, @EnumProc, Integer(Lines));
Result := true;
end;
Zitat von capo:
und zwar hierzu
buffer, desc: array[0..100] of char; // max. 101 Zeichen
max. 100 Zeichen
also 100 Zeichen plus die abschließende #0
[add]
@3_of_8:
entweder
Code:
buffer, desc: array[0..MAXLENGTH[b] - 1[/b]]; of char;
oder
Code:
GetClassname(StHandle, buffer, MAXLENGTH[b] + 1[/b]);
$2B or not $2B
|
|
Zitat
|