Window Handle

[delphiUser88]

Hallo Christian ersteinmal wieder ein DANKE für die schnelle Hilfe und das du mit mir nicht die Geduld verlierst Ich habe es jetzt so umgebaut das per Schleife die Items ausgelesen werden und anschließend in ListzBox1.Items.Add übertragen werden.Es werden auch Einträge in der ListBox1 geschrieben nur scheinbar sind diese Kryptisch dargestellt oder was auch immer hier noch mal die Funktion vielleicht siehst du den Fehler

Delphi-Quellcode:

function HListBox(Handle: THandle; dat: LongWord): Boolean;
stdcall;

const
sKlasse = 'ListBox'; //Klasse ListBox
var
sTXT: String;
cKlasse,cBuffer: PChar;
iLaenge,iTextlaenge,iCount,i: Integer;


begin


iLaenge := length(sKlasse)+1;
cKlasse := AllocMem(iLaenge);

  try
    if GetClassName(Handle,cKlasse,iLaenge) > 0 then begin
      if trim(cKlasse) = sKlasse then begin


           iCount := SendMessage(Handle, LB_GETCOUNT, 0, 0);

                   try

                   for i := 0 to iCount -1 do
                   begin

                   iLaenge := SendMessage(Handle, LB_GETTEXTLEN, i, 0);
                   GetMem(cBuffer, iLaenge + 1);
                   SendMessage(Handle, LB_GETTEXT, i, Integer(cBuffer));
                   sTXT := StrPas(cBuffer);

                   Form1.ListBox1.Items.Add(sTXT);

                   end;



                                        finally
                                        FreeMem(cBuffer,iTextlaenge);
                                        end;

                   Result := false;
                   end;
    end;

        finally
        FreeMem(cKlasse,iLaenge);
        end;

end;

MFG: DelphiUser