Klasse eines Fensters herausfinden

[Cuchulainn]

Diese Funktion gibt die Klasse eines Fensters als String zurück:

Delphi-Quellcode:

function FGetWindowClass(hWindow: HWND): String;
var 
  StrClass: String;
  pClass: pAnsiChar;
const
  MaxBufferSize = 32767;
begin
  pClass := GetMemory(MaxBufferSize);
  ZeroMemory(pClass, MaxBufferSize);
  GetClassName(hWindow, pClass, MaxBufferSize);
  SetString(StrClass, pClass, Strlen(pClass));
  Result := StrClass;
  FreeMemory(pClass);
end;

Übergabeparameter ist das Handle des Fensters, dessen Fensterklasse zu bestimmen ist.

[edit=Matze]Code formatiert. Mfg, Matze[/edit]

[shmia]

Dann werfe ich doch mal meine Version ins Rennen:

Delphi-Quellcode:

function FGetWindowClass(hWindow: HWND): String;
const
  MaxBufferSize = 32767;
var
  count : Integer;
begin
  SetLength(Result, MaxBufferSize);    // Speicher reservieren
  count := GetClassName(hWindow, PChar(Result), MaxBufferSize);
  SetLength(Result, Count);   // Speicher auf benötigtes Mass zusammenstutzen
  // falls nötig eine Exception auslösen
  // so weiss man bei Fehlern woran man ist
  if count = 0 then
    RaiseLastWin32Error;
end;

[edit=Matze]Code formatiert. Mfg, Matze[/edit]