idHTTP Dateien lassen sich erst nach Programme öffnen

[MrKnogge]

Du musst jeden Stream freigeben, nicht nur den letzten:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  stream: TFileStream;
begin
  stream := TFilestream.create('ver_info.ini', fmcreate);
  try
    form1.idhttp1.Get('http://redplug.re.funpic.de/dlw/enigmad/aktuelle_version.txt',stream);
  finally
    stream.Free;
  end;

  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 );
  try
    form1.idhttp1.Get('http://redplug.re.funpic.de/dlw/unrar.dll',stream);
  finally
    stream.Free;
  end;

  ShellExecute(Application.Handle,'open',PChar('th_upd.exe'),PChar(''),PChar(''),SC_DEFAULT);
  form1.close;
end;