Weitere Variante die unter W32 funktioniert, aber unter W64 als Ergebnis in buffer nur ??? liefert.
Delphi-Quellcode:
class function TResourceMeldung.GetOffset(lg: integer): integer;
var
buffer : array[0..1023] of Widechar;
ls : integer;
begin
Result := 0;
ls := LoadStringW(hInstance, lg, @buffer, length(buffer));
if ls <> 0 then
begin
showmessage(inttostr(length(buffer)));
showmessage(buffer);
end;
end;
Hat jemand eine Idee ?