Delphi registrieren
Bevor die Delphi-Version von der CD zu diesem Buch installiert werden kann, brauchst du einen Zugangsschlüssel, den du erhältst, sobald du dich bei Borland registriert hast. Dazu besuchst du im Internet diese Adresse:

http://www.borland.com/products/downloads/download_delphi.html

[Halte die Shift-Taste gedrückt, ehe du auf diesen Link klickst: Damit wird eine neues Fenster geöffnet!]

(1)        Klicke dort unter Keys Only auf Personal.

(2)        Im nächsten Fenster klicke auf New User.

(1)        Fülle alle Felder aus, vor denen du einen roten Punkt siehst. Abschließend klickst du ganz unten auf Register (oder Continue).

(2)        Fülle den Fragebogen über dich aus und bestätige ganz zum Schluss mit Submit.

(3)        Bestätige die E-Mail-Adresse, unter der du registriert wirst und an die der Registrierungsschüssel für die Installation von C++Builder geschickt wird durch Klick auf Submit.

(4)        Lies dir die Zusammenfassung durch, dann kannst du auch das letzte Fenster schließen.

(5)        Kontrolliere deine E-Mails, bis du den Schlüssel für die Installation erhalten hast.

 SecondsBetween(Time(), DateTimePicker1.Time)

  SecondsBetween(Frac(Time), Frac(DateTimePicker1.Time))

function FileExists(const FileName: string; FollowLink: Boolean = True): Boolean;

  Header.SaveToFile('C:\EDMSWAP\Header.hdf'); // 64kB groß
  Stream := getBinaryData(file_one);
  Stream.SaveToFile('C:\EDMSWAP\Data.hdf'); // 400 Byte groß
  Header.LoadFromStream(Stream);
  Header.SaveToFile('C:\EDMSWAP\HeaderAfterLoadFromStream.hdf'); // 2 Byte groß

procedure TMainForm.StringGridSelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
const
  Diff = 2;

var
  S  : String;
  i  : Integer;
  Min : Integer;
  Max : Integer;
  Rect: TRect;

begin
  //aktuelle Zeile größer der ersten (fixen) Zeile?
  If ARow > 0 then
    begin
      //Zellen-Rect auslesen
      Rect := StringGrid.CellRect(ACol, ARow);

      //Zellen-Text auslesen
      S := StringGrid.Cells[ACol, ARow];

      If ACol in [1, 2, 3] then
        begin
          //ComboBox positionieren
          ComboBox.SetBounds(Rect.Left + StringGrid.Left + Diff,
            Rect.Top + StringGrid.Top + Diff, Rect.Width, Rect.Height - Diff);

          //je nach Spalte die dementsprechende StringList in die ComboBox laden
          //und den Style der ComboBox setzen
          case ACol of
            1: begin //Spalte: "Linie"
                  ComboBox.Items.Assign(StringList_Linien);

                  ComboBox.Style := csDropDownList;
                end;
            2: begin //Spalte: "Ziele"
                  ComboBox.Items.Assign(StringList_Ziele);

                  ComboBox.Style := csDropDownList;
                end;
            3: begin //Spalte: "Länge"
                  ComboBox.Items.Assign(StringList_Laenge);

                  ComboBox.Style := csOwnerDrawFixed;
                end;
          end;

          //Index des aktuellen Zellen-Text in der ComboBox ermitteln
          ComboBox.ItemIndex := ComboBox.Items.IndexOf(S);

          //ComboBox anzeigen und fokusieren
          ComboBox.Visible := true;
          ComboBox.SetFocus;
        end;

      If ACol in [4] then
        begin
          //SpinEdit positionieren
          SpinEdit.SetBounds(Rect.Left + StringGrid.Left + Diff,
            Rect.Top + StringGrid.Top + Diff, Rect.Width, Rect.Height - Diff);

          //Wert der Zelle eine Zeile drüber auslesen und als Min-Wert für
          //das SpinEdit verwenden
          Min := 0;
          If ARow > 1 then
            Min := StrToIntDef(StringGrid.Cells[ACol, Pred(ARow)], 0) + 1;

          //Wert der Zelle drüber auslesen und als Max-Wert für das SpinEdit
          //setzen (wenn der Wert größer null ist)
          Max := 60;
          If ARow < StringGrid.RowCount then
            begin
              i := StrToIntDef(StringGrid.Cells[ACol, Succ(ARow)], 0) - 1;

              If i > 0 then
                Max := i;
            end;

          //Min- und Max-Werte setzen
          SpinEdit.MinValue := Min;
          SpinEdit.MaxValue := Max;

          //Zahl des aktuellen Zellen-Text in SpinEdit laden
          SpinEdit.Value := StrToIntDef(S, 1);

          //SpinEdit anzeigen und fokusieren
          SpinEdit.Visible := true;
          SpinEdit.SetFocus;
        end;
    end;

  //
  CanSelect := true;
end;

repeat

..


  try
    dm.qry_files.post;
  except
    on e:exeption do
    begin
        lst_errors.items.add('Fehler: der Post bei folgender Datei ist fehlgeschlagen:');
    end;
  end;

..

dm.qry_folders.next;
until dm.qry_folders.ext;

procedure TviewWizWerbemittelVersandDetails.refreshData;
var
  lRow, lCol: Integer;
  lLastAdrID: Double;
begin
  FWEMList.Clear;
  lLastAdrID := -1;
  //alle Zeilen ausser Header löschen
  grdDetails.Cells.RowCount := 0;
  //Spalten 5 - x löschen
  grdDetails.Cells.ColCount := 4;
  //Werbemittel einlesen
  CheckClose(qryWerbemittel);
  CheckOpen(qryWerbemittel);

  grdDetails.BeginUpdate;
  try
    while not (qryWerbemittel.Eof) do begin
      //Spalte erzeugen
      lCol := grdDetails.Cells.AddColumn;
      //es gibt wohl keine Möglichkeit, Daten in einer Header-Zelle zu speichern, also
      //speichern wird die WEM-IDs in einer Liste
      FWEMList.Add(TFloatClass.Create(qryWerbemittelwem_id.AsFloat));

      grdDetails.cells.Columns[lCol].Caption := qryWerbemittelwem_display_name.AsString;
      grdDetails.cells.Columns[lCol].Tag := qryWerbemittelwem_verfuegbar.AsInteger;
      qryWerbemittel.Next;
    end;
    CheckClose(qryWerbemittel);
    //Transfers einlesen
    lRow := 0;
    CheckClose(qryWerbemitteltransfer);
    CheckOpen(qryWerbemitteltransfer);
    while not (qryWerbemitteltransfer.Eof) do begin
      //neue Adresse, neue Spalte
      if (lLastAdrid <> qryWerbemitteltransferwmt_adrid.AsFloat) then begin
        lRow := grdDetails.cells.AddRow;
        grdDetails.Cells[0, lRow].Data := TFloatClass.Create(qryWerbemitteltransferwmt_adrid.AsFloat);
        grdDetails.Cells[0, lRow].Text := qryWerbemitteltransferadr_schluessel.AsString;
        grdDetails.Cells[0, lRow].CanEdit := false;
        grdDetails.Cells[0, lRow].CanEnter := false;
      end;
      //Spalten 2 bis 4 editierbar machen
      grdDetails.cells[2, lRow].Value := 0;
      grdDetails.cells[2, lRow].CanEdit := true;
      grdDetails.cells[2, lRow].CanEnter := true;
      // enthält die plz zum sortieren (-> sortData.value)
      grdDetails.cells[1, lRow].FormatString := qryWerbemitteltransferadr_plz.AsString;
      if (-1 <> getIndexFromAdrList(qryWerbemitteltransferwmt_adrid.AsFloat)) then begin
        grdDetails.cells[3, lRow].Value := 1;
      end else begin
        grdDetails.cells[3, lRow].Value := 0;
      end;
      grdDetails.cells[3, lRow].CanEdit := true;
      grdDetails.cells[3, lRow].CanEnter := true;
      //Spalte suchen
      for lCol := 4 to grdDetails.Cells.ColCount - 1 do begin
        if (TFloatClass(FWEMList[lCol - 4]).FData = qryWerbemitteltransferwmt_wemid.AsFloat) then begin
    grdDetails.cells[lCol, lRow].Alignment := taCenter;
          grdDetails.Cells[lCol, lRow].Text := qryWerbemitteltransferwmt_anzahl.AsString;
          if qryWerbemitteltransferwmt_vertroestetdatum.IsNull then begin
          end else begin
            grdDetails.Cells[lCol, lRow].Color := clLime;
          end;

        end;
        grdDetails.Cells[lCol, lRow].CanEdit := false;
        grdDetails.Cells[lCol, lRow].CanEnter := false;
      end;
      lLastAdrID := qryWerbemitteltransferwmt_adrid.AsFloat;
      qryWerbemitteltransfer.Next;
    end;
    CheckClose(qryWerbemitteltransfer);
  finally
    grdDetails.EndUpdate;
  end;
  lblCount.Caption := IntToStr(grdDetails.Cells.RowCount);
  sortData;
end;

unit ZUUUG;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, mStack, mWaggon, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ListBox1: TListBox;
    ListBox2: TListBox;
    ListBox3: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    ListeA:TStack;
    Zug:Waggon;
    //ListeB:TStack;
    //ListeC:TStack;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Zug.SetzeInhalt(random(100));
ListeA.push(Zug);
ListBox1.Items.Insert(0,(inttostr(Zug.GibInhalt)));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ListeA.top;
ListeA.pop;
{if Listec.isEmpty then
begin
  Listec.push(Listea.top);
  Listea.top;
  listea.pop;
  Zug.SetzeInhalt((ListeA.top as waggon).GibInhalt);
  Listbox3.Items.Insert(0,(inttostr((Listec.top as waggon).GibInhalt)));
end
  else
  begin
    if ((Listec.top as Waggon).GibInhalt)<((Listea.top as Waggon).GibInhalt) then
    begin
      Listec.push(Listea.top);
      listea.top;
      Listea.pop;
      Listbox3.Items.Insert(0,(inttostr((Listec.top as waggon).GibInhalt)));
    end;
  end;}
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
showmessage(inttostr((Listea.top as waggon).GibInhalt))
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ListeA:= TStack.create;
//ListeB:= TStack.create;
//ListeC:= TStack.create;
Zug:= Waggon.Create;
end;

end.

UNIT mWaggon;

interface

//--------------------  ggf Uses-Liste einfügen !  --------------------
//uses ....;

type
  Waggon = class

  protected //Attribute
    Inhalt : integer;

  public //Methoden
    procedure SetzeInhalt (pInhalt: integer); virtual;
    function GibInhalt : integer; virtual;

   end;

implementation

//+---------------------------------------------------------------------
//|         Waggon: Methodendefinition
//+---------------------------------------------------------------------

//-------- SetzeInhalt (public) ----------------------------------------
procedure Waggon.SetzeInhalt (pInhalt: integer);
begin
  Inhalt := pInhalt
end;

//-------- GibInhalt (public) ------------------------------------------
function Waggon.GibInhalt : integer;
begin
  result := Inhalt
end;

end.

(*
 * Materialien zu den zentralen Abiturpruefungen
 * im Fach Informatik ab 2012 in Nordrhein-Westfalen.
 *
 * Klasse TStack
 *
 * NW-Arbeitsgruppe:
 * Materialentwicklung zum Zentralabitur im Fach Informatik
 *
 * Version 2010-12-28
 *)

unit mStack;

interface
type
  TNode = class
  private
    content: TObject;
    nextNode: TNode;
    constructor create(pObject: TObject);
    procedure setNext(pNode: TNode);
    function getContent: TObject;
    function next: TNode;
    destructor destroy; override;
  end;

  TStack = class
  private
    topNode: TNode;
  public
    constructor create; virtual;
    function isEmpty: boolean; virtual;
    function top: TObject; virtual;
    procedure pop; virtual;
    procedure push(pObject: TObject); virtual;
    destructor destroy; override;
  end;

implementation

// TNode

constructor TNode.create(pObject: TObject);
begin
  content := pObject;
  nextNode := nil;
end;

procedure TNode.setNext(pNode: TNode);
begin
  nextNode := pNode;
end;

function TNode.next: TNode;
begin
  result := nextNode;
end;

function TNode.getContent: TObject;
begin
  result := content;
end;

destructor TNode.destroy;
begin
  inherited destroy;
end;

// TStack

constructor TStack.create;
begin
  topNode := nil;
end;

function TStack.isEmpty: boolean;
begin
  result := topNode = nil;
end;

procedure TStack.push(pObject: TObject);
var
  tempNode: TNode;
begin
  if pObject <> nil then
  begin
    tempNode := TNode.create(pObject);
    if self.isEmpty then
      topNode := tempNode
    else
    begin
      tempNode.setnext(topNode);
      topNode := tempNode;
    end;
  end;
end;

procedure TStack.pop;
var
  tempNode: TNode;
begin
  if not self.isEmpty then
  begin
    tempNode := topNode;
    topNode := topNode.next;
    tempNode.destroy;
  end;
end;

function TStack.top: TObject;
begin
  if not self.isEmpty then
    result := topNode.getContent
  else
    result := nil;
end;

destructor TStack.destroy;
begin
  while not self.isEmpty do
    self.pop;
  inherited destroy;
end;

end.

    var                                                                            //Globale Variablenvergabe
    UserDirPageCAE : TInputDirWizardPage;      
    DOSBoxConf : TStringList;    
    GPSDirCheckBox : TRadioButton;  
    SplashImage: TBitmapImage;  
    SplashForm: TForm;      
    a, b, c, d : word;  
    SetupMajor, SetupMinor, SavedMajor, SavedMinor : dword;
   
    UserFolderCAE, tmp, SplashFileName, DOSBoxCAE2000Path, DOSBoxCAE2000UninstallString,
    DOSBoxCAE2000UninstallPath, DOSBoxCAE2000UninstallName, DOSBoxCAE2000UninstallPathRemovedQuotes,
    DOSBoxCAE2000UninstallNameRemovedQuotes, DOSBoxCAE2000UninstallStringRemovedQuotes, CAE2000Path,
    GPSPath, GetCAE2000Path : string;
   
    GPSDirCheckBoxChecked, ResultDOSBoxCAE2000PathCheck, ResultAktuelleAppFound, ResultDOSBoxCAE2000DontDeinstall : boolean;  
    I: Integer;

   
    function CreateDWord(const Hi, Lo: word): dword;                               //Registry-Schlüssel für die Versionsnummer
     
      begin
        Result := (Hi shl 16) or Lo;
      end;

   
    function DecodeVersion(const dwMajor, dwMinor: dword): string;                 //Entschlüsselung der Versionsnummer

      begin
        a := word(dwMajor shr 16);
        b := word(dwMajor and not $ffff0000);
        c := word(dwMinor shr 16);
        d := word(dwMinor and not $ffff0000);
        Result := Format('%d.%d.%d.%d',[a,b,c,d])
      end;

   
    function IsSetupNewer: boolean;                                                //Versionsabgleich der vorhandenen Installation zur neuen Installation
   
    var
    ResultCode : integer;
     
      begin    
        if (not RegQueryDWordValue(HKLM,'{#UNINSTKEY}','MajorVer',
            SavedMajor)) or
            (not RegQueryDWordValue(HKLM,'{#UNINSTKEY}','MinorVer',
            SavedMinor)) then
            begin
            if (RegQueryStringValue(HKLM,'{#UNINSTKEY}',
                'UninstallString',tmp)) and
                (tmp <> '') and
                (fileexists(tmp)) then
              begin
                Result := (MsgBox(ExpandConstant('{cm:NotVerifiedVersionFound}'),mbConfirmation,MB_YESNO or MB_DEFBUTTON2) = IDYES);
                           exit;
              end;
            end;
     
        SetupMajor := CreateDWord({#MAJOR},{#MINOR});
        SetupMinor := CreateDWord({#RELEASE},{#BUILD});
     
        //Neuere Version ist installiert
        Result := (SetupMajor > SavedMajor) or ((SetupMajor = SavedMajor) and (SetupMinor >= SavedMinor));
        //Gleiche Version ist bereits installiert
        ResultAktuelleAppFound := (SetupMajor = SavedMajor) or ((SetupMajor = SavedMajor) and (SetupMinor = SavedMinor));

        //Ermitteln und Umformen des Deinstallationspfades
        RegQueryStringValue(HKLM,'{#UNINSTKEY}','UninstallString',DOSBoxCAE2000UninstallString);
        DOSBoxCAE2000UninstallPath := (ExtractFileDir(DOSBoxCAE2000UninstallString) + '\' + '"');
        DOSBoxCAE2000UninstallName := ('"' + ExtractFileName(DOSBoxCAE2000UninstallString));
        DOSBoxCAE2000UninstallStringRemovedQuotes := RemoveQuotes(DOSBoxCAE2000UninstallString);
        DOSBoxCAE2000UninstallPathRemovedQuotes := RemoveQuotes(DOSBoxCAE2000UninstallPath);
        DOSBoxCAE2000UninstallNameRemovedQuotes := RemoveQuotes(DOSBoxCAE2000UninstallName);


        if not Result then
          begin            
            if RegQueryStringValue(HKLM,'{#UNINSTKEY}','InstallLocation',DOSBoxCAE2000Path) then
              begin
                result := DirExists(DOSBoxCAE2000Path);
              end;
              if not Result then
                begin
                  //Installationspfad der vorhandenen Installation kann nicht ermittelt werden
                  MsgBox(ExpandConstant('{cm:DOSBoxPathNotFound}'),mbError,MB_OK);
                  //Abbruch der Installation wenn der Pfad akteuelle Installationspfad nicht ermittelt werden konnte
                  ResultDOSBoxCAE2000PathCheck := false;
                end;
            //Messagebox das eine aktuellere Version installiert ist                            
            if MsgBox(ExpandConstant('{cm:NewerAppFound}'),mbError,MB_YESNO or MB_DEFBUTTON2) = IDYES then
              begin
                //Silent-Ausführung der Deinstallation wenn aktuellere Version installiert ist und Benutzer dem zustimmte
                Exec(ExpandConstant(DOSBoxCAE2000UninstallStringRemovedQuotes),'/SILENT','',SW_SHOW,ewWaitUntilTerminated,ResultCode);
              end else
                //Abbruch des Setups sobald der Benutzer sich gegen eine Deinstallation der aktuellen Version entscheidet
                ResultDOSBoxCAE2000DontDeinstall := true;            
          end;
       
        if ResultAktuelleAppFound = true then
          begin
            //Messagebox das die aktuellere Version gleich der zu installierenden ist
            MsgBox(Format(ExpandConstant('{cm:AktuelleAppFound}'),[DecodeVersion(SavedMajor,SavedMinor)]),mbConfirmation,MB_OK);                                
          end;
         
      end;


    function SaveVersionInfo: boolean;                                             //Aktuelle Versionsnummer in die Registry schreiben
     
      begin
        Result := (RegWriteDWordValue(HKLM,'{#UNINSTKEY}','MajorVer',
                  CreateDWord({#MAJOR},{#MINOR}))) and
                  (RegWriteDWordValue(HKLM,'{#UNINSTKEY}','MinorVer',
                  CreateDWord({#RELEASE},{#BUILD})));
      end;


    function InitializeSetup: boolean;

      begin
        UserFolderCAE := '';
        Result := true;
        Result := IsSetupNewer;
       
        if ResultDOSBoxCAE2000PathCheck = true then                                //Abbruchfunktion wenn der aktuelle Installationspfad nicht \
                                                                                      ermittelt werden konnte
          begin                                                                    
            result := false;
          end;

        if ResultDOSBoxCAE2000DontDeinstall = true then                            //Abbruchfunktion wenn der Benutzer sich gegen eine \
                                                                                      Deinstallation entschieden hat
          begin                                                                    
            result := false;
          end;

        if ResultAktuelleAppFound = true then                                      //Abbruchfunktion wenn bereits die aktuelle Version installiert ist
         
          begin
            result := false;
          end;

      end;
             
             
    function InstallCae(Param:String):String;                                      //Schreiben des, vom Benutzer ermittelten, CAE2000-Pfades

      begin
        Result := UserDirPageCAE.Values[0];
        CAE2000Path := UserDirPageCAE.Values[0];
        RegWriteStringValue(HKLM, '{#UNINSTKEY}','CAE2000Location', CAE2000Path);  //Erstellen eines Registry-Eintrages für den CAE2000-Pfad
      end;

   
    function GPSDir(Param:String):String;
     
      begin
        GPSPath := UserDirPageCAE.Values[1];
      end;

    procedure GPSDirCheckBoxOnClick(Sender: TObject);                              //Einblenden und Einstellen eines separaten GPS-Pfades          
 
      begin
        if GPSDirCheckBox.Checked then
         
          begin
            UserDirPageCAE.Add('Zielverzeichnis des GPS Ordner´s');                //GPS-Verzeichnisauswahlfenster
         
            UserDirPageCAE.Values[1] := ExpandConstant('C:\CAE2000\');             //GPS-Standardpfad in der Verzeichnisauswahl
          end

      end;
   

    procedure InitializeWizard;

      begin
        SplashFileName := ExpandConstant('{tmp}\WISAG Logo weiß.bmp');             //Einblenden vom WISAG-Logo für Zeit x
        ExtractTemporaryFile(ExtractFileName(SplashFileName));                     //WISAG-Logo aus dem tmp-Verzeichnis aufrufen
 
        SplashForm := TForm.create(nil);
        with SplashForm do
          begin
            BorderStyle := bsNone;
            Position := poScreenCenter;                                            // Bildposition angeben
            ClientWidth := 980;                                                    // Bildgröße angeben (Breite in px)
            ClientHeight := 467;                                                   // Bildgröße angeben (Höhe in px)
          end;
 
        SplashImage := TBitmapImage.Create(SplashForm);
        with SplashImage do
          begin
            Bitmap.LoadFromFile(SplashFileName);
            Stretch := true;
            Align := alClient;
            Parent := SplashForm;
          end;
 
        with SplashForm do
          begin
            Show;
            for I := 1 to 2 do                                                     // Anzeigedauer in Sekunden; 1 to 2 = 2 Sekunden)
            begin
              Repaint;
              Sleep(1000);
            end;
          Close;
          Free;
          end;

      UserDirPageCAE := CreateInputDirPage(wpSelectDir,                            //Zusätzliche Verzeichnisauswahlseite einbinden
      ExpandConstant('{cm:CAEVerzeichnis}'),
      ExpandConstant('{cm:SpeicherortPRTDEF}'),
      ExpandConstant('{cm:SpeicherzielPRTDEF}'),
      false,
      'Neuer Ordner');

      UserDirPageCAE.Add('Zielverzeichnis der CAE2000.EXE');                       //CAE-Verzeichnisauswahlfenster

      UserDirPageCAE.Values[0] := ExpandConstant('C:\CAE2000\');                   //CAE-Standardpfad in der Verzeichnisauswahl

      GPSDirCheckBox := TRadioButton.Create(UserDirPageCAE);                       //Radio-Button zum Einblenden bei separaten GPS-Pfad
     
      with GPSDirCheckBox do                                                       //Parameter für die GPS-CheckBox
       
        begin      
          GPSDirCheckBox.Parent := UserDirPageCAE.Surface;
          Caption := ExpandConstant('{cm:GPSVerzeichnis}');
          Left := ScaleX(0);
          Top := ScaleY(120);
          Width := ScaleX(400);
          Height := ScaleY(40);
          Checked := GPSDirCheckBoxChecked;
          OnClick := @GPSDirCheckBoxOnClick;      
        end;    
     
      end;
 
   
    procedure CurStepChanged(CurStep: TSetupStep);                                 //Eintragen der benutzerspezifischen Pfadangaben \
                                                                                      in die DOSBox-Konfigurationsdatei
      begin
        if CurStep=ssPostInstall then
          begin;
            DOSBoxConf := TStringList.Create;
            DOSBoxConf.LoadFromFile((ExpandConstant('{localappdata}\DOSBox\dosbox-SVN_MB6.conf')));
            DOSBoxConf[298] := copy(DOSBoxConf[298],1,22)+(ExpandConstant('{app}\PrintOut\SELECT.PCL'))+copy(DOSBoxConf[298],30,length(DOSBoxConf[298]));
            DOSBoxConf[355] := copy(DOSBoxConf[355],1,9)+(ExpandConstant('"{code:InstallCae}\"'))+copy(DOSBoxConf[355],24,length(DOSBoxConf[355]));
            DOSBoxConf[356] := copy(DOSBoxConf[356],1,9)+(ExpandConstant('"{app}\"'))+copy(DOSBoxConf[356],24,length(DOSBoxConf[356]));      
            if GPSDirCheckBox.Checked then
              begin
                DOSBoxConf[357] := copy(DOSBoxConf[357],1,1)+' mount D '+(ExpandConstant('"{code:GPSDir}\"'))+copy(DOSBoxConf[357],24,length(DOSBoxConf[357]));
              end;
            DOSBoxConf.SaveToFile((ExpandConstant('{localappdata}\DOSBox\dosbox-SVN_MB6.conf')));
            DOSBoxConf.Free;
            SaveVersionInfo;
          end;
     
      end;


    procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);           //Code für deinstallation
     
      begin

        RegQueryStringValue(HKLM,'{#UNINSTKEY}','CAE2000Location',GetCAE2000Path);

        if CurUninstallStep = usAppMutexCheck then
          begin
            //Kopieren der Backupdatei ins Originalverzeichnis
            FileCopy(ExpandConstant(GetCAE2000Path) + '\Backup\PRTDEF.GER', ExpandConstant(GetCAE2000Path) + '\PRTDEF.GER', false);
          end;

        if CurUninstallStep=usDone then        
          begin
            RegDeleteKeyIncludingSubkeys(HKLM, '{#UNINSTKEY}');                    //Löschen des Rigistry-Eintrages nach der Deinstallation
          end;
       
      end;

[Files]
Source: {code:InstallCae}\PRTDEF.GER; DestDir: {code:InstallCae}\Backup\; Flags: ignoreversion confirmoverwrite external

    procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);  //Code für deinstallation
     
      begin

        RegQueryStringValue(HKLM,'{#UNINSTKEY}','CAE2000Location',GetCAE2000Path);

        if CurUninstallStep = usAppMutexCheck then
          begin
            MsgBox(ExpandConstant(GetCAE2000Path),mbError,MB_OK);
            FileCopy('ExpandConstant(GetCAE2000Path)\Backup\PRTDEF.GER', 'ExpandConstant(GetCAE2000Path)\PRTDEF.GER', false);
          end;

        if CurUninstallStep=usDone then        
          begin
            RegDeleteKeyIncludingSubkeys(HKLM, '{#UNINSTKEY}');
          end;
       
      end;

  TfpgOLEEnumFormatEtc = class(TInterfacedObject, IEnumFORMATETC)
  private
    FFormatEtcList: TfpgOLEFormatEtcList;
    FIndex: Integer;
  protected
    { IEnumFORMATETC }
// Bei diesen beiden Funktionen kommt der Compiler nicht weiter
    function   Next(celt: Longint; var elt:FormatEtc; pceltFetched: PLongint=nil): HResult; stdcall;
    function   Skip(celt: Longint): HResult; stdcall;
    function   Reset: HResult; stdcall;
    function   Clone(out Enum: IEnumFormatEtc): HResult; stdcall;
  public
    constructor Create(AFormatEtcList: TfpgOLEFormatEtcList);
    destructor Destroy; override;
  end;

function tuWas(sS:string):boolean;

var
    einString: string;

begin
    einString:=?????.Text //GENAU DA MEINE ICH... IN einString sollte jetzt 'tuWas' stehen...
    showMessage(einString); //GIBT IN DIESEM FALL tuWas aus
end;

unit Unit1;

interface

{$WARN UNIT_PLATFORM OFF}
{$WARN SYMBOL_PLATFORM OFF}

implementation

  faArchive <<-- Warnung

end;

  var
    UserDirPage : TInputDirWizardPage;
    UserFolder : string;

    function InitializeSetup: boolean;

      begin
        UserFolder := '';
        Result := true;
      end;

    function InstallCae(Param:String):String;

      begin
        result := UserDirPage.Values[0] ;
      end;

    procedure InitializeWizard;

      begin
      UserDirPage := CreateInputDirPage(wpSelectDir,
      ExpandConstant('{cm:CAEVerzeichnis}'),
      ExpandConstant('{cm:SpeicherortPRTDEF}'),
      ExpandConstant('{cm:SpeicherzielPRTDEF}'),
      false,
      'Neuer Ordner');

      //"Klicken sie weiter..." Meldung
      UserDirPage.Add(SetupMessage(msgSelectDirBrowseLabel));

      //Standardpfad in der Verzeichnisauswahl
      UserDirPage.Values[0] := ExpandConstant(
      'C:\CAE2000\');
      end;

    procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);  //Code für deinstallation

      begin
        if CurUninstallStep=usPostUninstall then

            FileCopy('{code:InstallCae}\Backup\PRTDEF.GER','{code:InstallCae}\PRTDEF.GER',false);
            DelTree('{code:InstallCae}\Backup\*', true, true, true);

      end;