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:

{ ---Öffnen einer beliebigen externen Datei---}

procedure TF.BloadClick(Sender: TObject);
var i,j,k,pos:integer;
begin
// Festlegen des Verzeichnisses in einer Variable
  if OD1.Execute then benutzerpfad:=(OD1.FileName);
  showmessage('Pfad: "'+benutzerpfad+'"'); //Kontrolle

{ ---Teilen des Verzeichnispfades in Verzeichnis & Dateiname---}

// Position des letzten '\' im Pfad finden (Rest = Dateiname)
  for i:=1 to length(benutzerpfad) do
    if benutzerpfad[i]= '\' then pos:=i;
// Festlegen des Verzeichnisses in Variable
  for j:=1 to pos do
    pfad:= pfad+benutzerpfad[j];
  showmessage('Verzeichnis: "'+pfad+'"'); //Kontrolle
// Festlegen des Dateinamens in Variable
  for k:=pos+1 to length(benutzerpfad) do
    filename:= filename+benutzerpfad[k];
  showmessage('Dateiname: "'+filename+'"'); //Kontrolle
end;

{ ---Öffnen der Benutzerdefinierten Datei--- }

procedure TF.Bgo2Click(Sender: TObject);
var anzahl, i: integer;
begin
  shellexecute(handle, 'open', filename, PChar(pfad),nil,sw_show); // ^^Befehl zum Öffnen.
end;					

1:
2:
3:
4:

function ExecuteFile(const sFilename: string; dwShow: DWORD = SW_SHOW): DWORD;
begin
  Result := ShellExecute(0,'open',PChar(sFilename),nil,PChar(ExtractFilePath(sFilename)),dwShow);
end;					

1:

shellexecute(handle, 'open', PCHAR(filename), PChar(pfad),nil,sw_show); // ^^Befehl zum Öffnen.					

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

function Add(a, b: Integer);
begin
  result := a + b;
end;

{..}
procedure DoSomething;
var
  Fruechte: Integer;
const
  Aepfel = 12;
  Birnen = 13;
begin
  Fruechte := Add(Aepfel, Birnen);
  Fruechte := Aepfel + Birnen;  //dasselbe
end;