Updater Errors :'(

[Berlinermauer]

So hab ich es jetzt :

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
     TSTREAMONLINEVERSION := TFileStream.Create('./data/OnlineVersion.ini', fmCreate);
     try
        Downloader.Get('http://www.gooogle.de/BatchMaker/Version.ini',TSTREAMONLINEVERSION);
     finally
     end;
     assignfile(Version,'./data/BatchMakerVersion.ini');
     reset(Version);    // Öffne die Datei für den Schreib-Modus
     ReadLn(Version, ReadenVersion);
     CloseFile(Version);
     assignfile(Versionfrominternet,'./data/OnlineVersion.ini');
     reset(Versionfrominternet); // Öffne Datei für den Schreib Modus
     ReadLn(Versionfrominternet,ReadenVersion2);
     CloseFile(Versionfrominternet);
     If ReadenVersion < ReadenVersion2 then // Wenn die Version im Internet neuer ist ...
     begin
          // Frag benutzer nach Aktion und wenn Ja, dann update
          If MessageDlg('Es sind Updates vorhanden ! Sollen diese Jetzt Gedownloadet werden ?', mtConfirmation, [mbyes, mbno], 0) = mrYes then
          begin
               SetupPath := TFileStream.Create('./data/setup.exe', fmCreate);
             try
               Downloader.Get('http://www.gooogle.de/BatchMaker/setup.exe',SetupPath);
                // Gedownloadet ...
                  except ShowMessage('Entweder Haben sie Kein Internet oder der Hoster hat mich gekickt ^^;)');
                  // sage dem user dass die datei nicht gedownloaded hat können
                  end;
               ShowMessage('Das Update Wurde Erfolgreich Heruntergeladen ... Der Installer führt sie durch das Update');
               ShellExecute(Handle, nil, SetupPath, nil, PChar('./'), SW_NORMAL); // Starte die Setup.exe
             Form1.Close
               end;
          end Else MessageDlg('Abgebrochen. Sie Werden beim nächsten Start von Windows nocheinmal gefragt.', mtInformation, [mbOK], 0);

          end.

errors:

Zitat:

Erzeugen
[Fehler] Unit1.pas(663): Undefinierter Bezeichner: 'ShellExecute'
[Fehler] Unit1.pas(668): ';' erwartet, aber '.' gefunden
[Fehler] Unit1.pas(673): Deklaration erwartet, aber Dateiende gefunden
[Fataler Fehler] Project1.dpr(6): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden