Pfad zum mobilen Gerät

[Brakeman]

Ich habe nochmal etwas probiert und gesucht. Rausgekommen ist das hier:

Delphi-Quellcode:

procedure TForm1.SpeedButton4Click(Sender: TObject);
var
    HSrc,HDes     : THandle;
    Buffer        : Pointer;
    BytesToRead,
    BytesReading,
    BytesWritten  : DWord;
    o1            : Poverlapped;
begin
Buffer:=nil;

CeRapiInit;
HSrc := CreateFile ('c:\temp\test.txt',Generic_Read ,File_Share_Read ,nil,Open_Existing,0,0);
HDes := CeCreateFile ('\My Documents\Privat\test9.txt',Generic_Write,File_Share_Write,nil,Create_Always,0,0);
GetMem (Buffer, GetFileSize (HSrc, Buffer));
BytesToRead := GetFileSize (HSrc, Buffer);
ReadFile    (HSrc, Buffer^, BytesToRead, BytesReading, @o1);
CeWriteFile   (HDes, @Buffer^, BytesReading, BytesWritten, @o1);
CloseHandle (HSrc);
CeCloseHandle (HDes);
CeRapiUnInit;

end;

Die Datei auf dem PPC wird auch angelegt, aber ohne Inhalt. Weiss einer weiter?