Classname-Nr. umwandlen

[Sprint]

Zitat von Ultimator:

Aber deswegen bekomm ich trotzdem eine Zahl raus...

Delphi-Quellcode:

function GetClassName(Handle: HWND): String;
begin

  SetLength(Result, 260);
  SetLength(Result, Windows.GetClassName(Handle, PChar(Result), Length(Result)));

end;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin

  ShowMessage(GetClassName(Application.Handle));

end;