Einzelnen Beitrag anzeigen

ryLIX

Registriert seit: 16. Nov 2008
Ort: Westoverledingen
264 Beiträge
 
RAD-Studio 2009 Pro
 
#13

Re: Zugriffsverletzung

  Alt 16. Dez 2008, 20:14
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; //<-- da fehlt ein ' !
    Ziel := 'C:\WINDOWS\system32\Update_sa.txt'; // Öhm was hast du im Systemordner von Windows zu suchen? Mißbrauchst du den gerade als Tempordner?
     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.
Markus
Hamburflys, Scrubble-Fubble-Puff-Shake, Muffin-Purper-Gurk?
  Mit Zitat antworten Zitat