1:
2:

SelectDirectory('Bitte den Pfad des AionEU Ordners wählen.', '', Dir);
    dir := dir + '\bin32\aion.bin';					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

 begin
  dirstart := dir + ' -ip:85.214.64.211 -ng -port:2107 -cc:2 -lang:deu -noweb -noauthgg';
  if dirstart = ' -ip:85.214.64.211 -ng -port:2107 -cc:2 -lang:deu -noweb -noauthgg' then
    begin
      MessageDlg('Du musst erst einen Aion Pfad setzen!', mtInformation, [mbOK], 0);
    end

  else
    begin
      startdir := PChar(dir);
      if FileExists('C:\Windows\Aionstart.bat') then
        begin
          ShellExecute(Handle, nil, 'C:\Windows\Aionstart.bat', nil, nil, SW_Normal);
          form1.Close;
        end

      else
        begin
          startbat := TStringlist.Create;
          startbat.add('@start ' + dirstart);
          startbat.SaveToFile('C:\Windows\Aionstart.bat');
          ShellExecute(Handle, nil, 'C:\Windows\Aionstart.bat', nil, nil, SW_Normal);
          form1.Close;
        end;
    end;
end;					

1:
2:

uses
  ActiveX, ShlObj;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function GetSpecialFolderPath(CallerHandle: THandle; CSIDL: Integer): String; //Der Typ der Variable, die zurückgegeben wird kann noch verändert werden.
var
exinfo: TShellexecuteinfo;
Buf: PChar;

begin
  FillChar(exinfo, SizeOf(exinfo), 0);
  with exinfo do
  begin
    cbSize := SizeOf(exinfo);
    fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_IDLIST;
    Wnd := CallerHandle;
    nShow := SW_SHOWNORMAL;
    Buf := StrAlloc(MAX_PATH);
    SHGetSpecialFolderPath(wnd, Buf, CSIDL, True);
    Result := Buf;
  end;
end;					

1:

deinevariable := GetSpecialFolderPath(0, 28);