Filestream, string anhängen

[eLse-maestro]

Hi leute,
Ich bin am verzweifeln ..

Ich möchte einen string an eine datei anhängen, und mit der datei den string auslesen..

dieser code klappt super..
Ich habe hier einen string angehangen, und direkt wieder ausgelesen..

Delphi-Quellcode:

var fs:tfilestream; s,s1:string;i:integer;
begin

  fs:=tfilestream.Create('C:\background.exe',
   fmOpenReadWrite or fmShareExclusive);
  try
    i:=fs.Seek(0, soFromEnd);
    s:='[test]';
    fs.Write(s,sizeOf(s));
    fs.Seek(i, soFromBeginning);
    fs.Read(s1,sizeOf(s1));
    showmessage(s1);

  finally
    fs.Free;
  end;

so.. jetzt wollte ich aber den string von einer anderen EXE auslesen (später dann die background.exe)

Delphi-Quellcode:

var fs:tfilestream; s1:string; i:integer;
begin

  fs:=tfilestream.Create('background.exe',
  fmOpenReadWrite or fmShareExclusive);
  try
    i=fs.Seek(0, soFromEnd);
    fs.Seek(i-4,soFromBeginning); //minus 4, weil der string 4 byte hat, und dort die andere datei auch den string ausliest.
    fs.Read(s1,sizeOf(s1));
    showmessage(s1);
  finally
    fs.Free;

und dann kommt immer eine zugriffsverletztung, und ich habe schon alles probiert

Vielleicht kann mir ja einer helfen, vielen dank.

mfg
else_

PS:
es soll später einen "builder" geben, der an die exe ein pfad von einem hintergrund hängt, und wenn man die exe ausführt, dass der hintergrund, der im builder eingestellt wurde, geändert wird..