Einzelnen Beitrag anzeigen

Benutzerbild von milos
milos

Registriert seit: 14. Jul 2008
Ort: Bern (CH)
509 Beiträge
 
Delphi 11 Alexandria
 
#8

Re: Zugriffsverletzung

  Alt 16. Dez 2008, 20:06
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.
Milos
  Mit Zitat antworten Zitat