Tataa ... geschaft !
Es hat sogar richtig Spass gemacht ein Thread anzuschmeissen.
Ganz klassisch gelöst ... war gar nicht sooo schwer. (siehe Source)
Also es läuft ohne Fehler, aber vieleicht könnten ein paar
Thread-Experten nochmal drübergucken ... nur damit kein
Anfänger-Bullshit zwischen den Zeilen hängt.
Besten Dank
Delphi-Quellcode:
interface
type
TGetRemoteVersionThread = class(TThread)
protected
procedure Execute; override;
end;
.
.
.
implementation
procedure TForm1.FormCreate(Sender: TObject);
var Thread: TGetRemoteVersionThread;
begin
Thread := TGetRemoteVersionThread.Create(True);
Thread.FreeOnTerminate := True;
Thread.Resume;
.
.
.
end;
procedure TGetRemoteVersionThread.Execute;
var Fv,Rv: string; //FileVersion, RemoteVersion
begin
try
if InternetGetConnectedState(nil, 0) then begin
Rv := LoadURL(BaseURL + 'Launcher.ver'); // Routine siehe oben
Fv := GetFileVersion(ParamStr(0));
with Form1.Menu1 do begin
if Rv = Fv then
Caption := 'You allready have the latest version (V' + Rv + ')';
if Rv <> Fv then
Caption := 'Update and install the latest version V' + Rv;
end;
end;
except end;
end;