tfilestream fehler beim versenden einer exe

[1aa]

ich versuche zz ein programm per tfilestream über einen indy socket zu versenden das versenden funktioniert auch soweit nur wenn ich versuche ein .exe programm zu versenden erhalte ich die fehlermeldung: `der prozess kann auf die datei nicht zugreifen da sie von einem anderem prozess verwendet wird`
was aber nicht sein kann da das programm nicht geöffnet ist.
code :

Delphi-Quellcode:

senden:
  hStream := TFileStream.Create(Name,fmOpenRead);
   try
    hSize := (HStream.Size);
    hStream.Position := 0;
    fSocket.WriteStream(hStream,hSize);
   finally
    hStream.free;
   end;

empfang:

  hStream := TFileStream.Create('Test.exe',fmCreate);
  aClient.ReadStream(hStream,hSize);
  hStream.Free;
end;

[Uwe Raabe]

Virenscanner?

[sx2008]

Beim Öffnen des Filestreams muss man angeben, dass andere Prozesse die Datei ebenfalls lesen dürfen aber nicht schreiben können.
hStream := TFileStream.Create(Name,fmOpenRead or fmShareDenyWrite);

[1aa]

ok danke .... werden bestimmt noch einige solche simplen fragen kommen^^