Klasse eines Fensters herausfinden

[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]