Mal ganz primitiv, mit folgender Funktion kannst du einer Datei von einem Webserver
downloaden:
Delphi-Quellcode:
uses UrlMon;
function DownLoadInternetFile(const Source, Dest : String): Boolean;
begin
Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0
end;
DownLoadInternetFile('http://www.killerloop.de/machTOT.txt', 'machTOT.txt');
Falls der Download erfolgreich war, kannst du dein Programm beenden.
Beim nächsten Programmstart ist die Datei machTOT.txt immer noch auf der lokalen Platte und
du beendest ebenfalls.
Wenn du die Datei machTOT.txt auf deinen Server hochladest, ist das der Schalter.