1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button3Click(Sender: TObject);
begin
        if OpenDialog1.Execute then
        begin
                Projekt := OpenDialog1.FileName;
                Edit1.Text := Projekt;
        end;
end;					

1:

Projekt:=ExtractFilePath(OpenDialog1.Filename);					

1:

extractfilepath(opendialog1.filename);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.BitBtn3Click(Sender: TObject);
var
        pfad2 : string;
        datei : string;
begin
        Pfad2:=ExtractFilePath(ParamStr(0));
        datei:=Pfad2+('splash.sp');
        CopyFile(PChar(datei), PChar(Pfad),False);
end;

end.