Hallo.
Ich habe es aufgrund der Vorlage von Ydobon herausgefunden, wie es funktioniert!
Delphi-Quellcode:
function unicode(inp:
string): PWideChar;
begin
result := PWChar(@inp[1]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
movefilew('
testa',
unicode(#$53#$30#$8C#$30#$6F#$30#$5E#$97#$38#$5E#$6B#$30#$ED#$77#$44#$30#$C6#$30#$AD#$30#$B9#$30#$C8#$30#$67#$30#$42#$30#$8B#$30 +
#$02#$30#$2E#$00#$69#$00#$64#$00#$78#$00));
end;
Ich muss jetzt also beim Papierkorb bei der Info2 Auslesung beim richtigen Offset solange 2 Bytes einlesen, bis ein Byte-Paar $00 $00 ist. Dann höre ich auf, die Bytepaare an s (string) anzuhängen. Die $00 $00 Null-Terminierung muss nicht bei movefilew() vorhanden sein.
Gruß
blackdrake
[edit=mkinzler]Umbruch in Code eingefügt Mfg, mkinzler[/edit]