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:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TMainForm.FormCreate(Sender: TObject);
var Ini : TIniFile; PhraseCount : Integer;
  I: Integer;
begin
  try
   PerformSysCheck;
   // Ini öffnen
   ShowmEssage(ExtractFilePath(ParamStr(0))+'Setup.ini'); // alles ok mit dem Pfad
   if not FileExists(ExtractFilePath(ParamStr(0))+'Setup.ini') then
    raise Exception.Create('File not found');
   Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'Setup.ini');
   // Zahl der Texte auslesen
   PhraseCount := Ini.ReadInteger('Options', 'PhraseCount', -1);
   SetLength(FPhrases, PhraseCount);
   // Texte auslesen
   for I := 0 to PhraseCount - 1 do
    FPhrases[I] := Ini.ReadString('Phrases', IntToStr(I), 'Error');
   // Rules.pas
   PageControl1.SelectNextPage(true, false);
   // Label-Array füllen
   SetLength(Labels, 8);
   Labels[0] := Welcome;
   Labels[1] := Sys_Check;
   Labels[2] := Setuptype;
   Labels[3] := Path;
   Labels[4] := Components;
   Labels[5] := Summary;
   Labels[6] := Install;
   Labels[7] := Lbl_ready;
  except
   ShowMessage(StrErrorDuringInit);
   Application.Terminate
  end;
end;                    

1:
2:
3:

  own_path := ExtractFilePath(Application.ExeName);
  if own_path[Length(own_path)] <> '\' then
    own_path := own_path + '\';                    

1:

showmessage(extractFilePath(ParamStr(0)));