Zitat von
milos:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
Datei,Ziel:PChar;
begin
IF FileExists('config_sa.txt') THEN
config2.Lines.LoadFromFile('config_sa.txt');
try
Datei := 'Link Privat';
Ziel := 'C:\WINDOWS\system32\Update_sa.txt';
UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
IF FileExists('C:\WINDOWS\system32\Update_sa.txt') THEN
Updatetext.Lines.LoadFromFile('C:\WINDOWS\system32\Update_sa.txt');
if (not (updatetext.Lines.Strings[0] = '3.5')) then
updatenform.show;
if (not (updatetext.Lines.Strings[0] = '3.5')) then
MessageDlg('Drücken sie auf Updaten damit sie die neuste Version bekommen', mtError, [mbOK], 0);
if (updatetext.Lines.Strings[0] = '3.5') then
MessageDlg('Sie haben schon die neuste Version!', mtError, [mbOK], 0);
except
ShowMessage('Ein Fehler ist aufgetreten! Programm wird beendet!');
Form1.Close;
end;
end;
end.
IMHO ist config2 (ein Memo?) zu diesem Zeitpunkt noch nicht erstellt. Außerdem solltest du anstatt relativen Pfaden wie z. B. 'config_sa.txt', absolute Pfade benutzen. Schau dir hierzu mal
ExtractFilePath und
Application.ExeName an.