idHTTP Dateien lassen sich erst nach Programme öffnen

[Deltachaos]

Zitat von MrKnogge:

Du musst jeden Stream freigeben, nicht nur den letzten:

Habs etz so gemacht da ich ja nur diese datei öffnen muss wehrend das programm noch leuft.
die anderen werden ja automatisch finalisirt wenn das programm beendet wird.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var  stream: TFileStream;
begin
  stream := TFilestream.create('ver_info.ini', fmcreate);
  form1.idhttp1.Get('http://redplug.re.funpic.de/dlw/enigmad/aktuelle_version.txt',stream);
  stream.Free;
  stream := TFilestream.create('th_upd.exe',fmcreate );
  try
    form1.idhttp1.Get('http://redplug.re.funpic.de/dlw/enigmad/th_upd.exe',stream);
  finally
    stream.Free;
  end;
  stream := TFilestream.create('unrar.dll',fmcreate );
  form1.idhttp1.Get('http://redplug.re.funpic.de/dlw/unrar.dll',stream);
  stream.Free;
  ShellExecute(Application.Handle,'open',PChar('th_upd.exe'),PChar(''),PChar(''),SC_DEFAULT);
  form1.close;
end;