Forum: Object-Pascal / Delphi-Language
Delphi
by Deltachaos,
29. Mär 2008
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.
procedure TForm1.Button1Click(Sender: TObject);
var stream: TFileStream;
begin
stream := TFilestream.create('ver_info.ini', fmcreate);
...
Forum: Object-Pascal / Delphi-Language
Delphi
by Deltachaos,
29. Mär 2008
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:=TFilestream.create('th_upd.exe',fmcreate );
form1.idhttp1.Get('http://redplug.re.funpic.de/dlw/enigmad/th_upd.exe',stream);
...