Classname-Nr. umwandlen

[Ultimator]

Hallo, ich hab wieder mal ne Frage. :-)

Und zwar hab ich per Handle den Windows-Klassennamen eines Controls erhalten; dieser ist jedoch bekanntermaßen eine Zahl.
So, meine Frage ist nun: Wie kann ich von dieser Zahl auf den echten Namen des Controls schließen, etwa "Button" oder so?

Ich hoffe, ihr könnt mir,(wie schon so oft *schleim* :mrgreen: ) helfen. :thuimb:

[Ultimator]

Ich hab bis jetzt leider keine Lösung gefunden :roll:

[Christian Seehase]

Moin Ultimator,

ich für meinen Teil versteh' nicht ganz, was Du da gemacht hast.
Könntest Du es bitte mal mit einem Codebeispiel verdeutlichen?

[Ultimator]

Kein Problem, hier: ;-)

Delphi-Quellcode:

var Buffer: array[1..1000] of char;
GetClassName(Application.Handle,@Buffer,SizeOf(Buffer));

Mit der Funktion bekomm ich dann einen Integer raus, ich möchte aber, dass ich das als lesbare Klasse bekomme, z.B. Button oder so...

Ich hab den Buffer erstmal reichlich dimensioniert, kann ich ja evtl. später immer noch ändern.
GetClassname ist eine Funktion, die ich im WinAPI-SDK gefunden hab.
(nachzulesen hier ;-) )

[SirThornberry]

Du bekommst eine Zahl weil du die Funktion falsch aufrufst. Richtig ist es so:

Delphi-Quellcode:

var Classenname: Array[0..255] of Char;
begin
  GetClassName(Application.Handle, Classenname, 255);
end;

GetClassName besorgt sich selbst die Adresse der Variablen, also brauchst du nicht den pointer übergeben, ist klar das es sonst schief geht.

[Ultimator]

Oh, danke. :oops: :)

Aber deswegen bekomm ich trotzdem eine Zahl raus... :pale:

[SirThornberry]

hätte ich die Hilfe gelesen, hätte ich vermutlich auch einen pointer übergeben

[Sprint]

Zitat:

Zitat von Ultimator

Aber deswegen bekomm ich trotzdem eine Zahl raus... :pale:

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;

[Dax]

Sags doch einfach so:

GetClassName liefert die Anzahl der Zeichen des Namens zurück!

[Ultimator]

Hey Sprint, danke :firejump:

@Dax: Irgendwie ist das aber ziemlich unsinnig, nicht? ;-)