Programmpfad

[Haraldo]

weiß jemand wie den Programmpfad ermittle in dem mein Programm läuft?

[Rainer]

Pfad ist eine Variable vom Typ String, die den Pfad aufnimmt:

Pfad:=ExtractFilePath(Application.ExeName);
bzw.
Pfad:=ExtractFilePath(Paramstr(0));

Beide Lösungen liefern dir das Verzeischnis, in dem die Anwendung liegt.

[Haraldo]

Vielen Dank Rainer funktioniert! Aber mit dem speichern hapert es noch kannst du mal schauen was falsch ist.
Vielen Dank

[Haraldo]

Vielen Dank Rainer funktioniert! Aber mit dem speichern hapert es noch kannst du mal schauen was falsch ist.
Vielen Dank
so sieht es aus
[font  size=2 face="Courier New"][font color="#000000"]var xdatei,xfoto,xpfad :string;
var x :integer;
begin
if openpicturedialog1.execute then
begin
 xfoto := OpenpictureDialog1.FileName;
 end;
 if xfoto <> '' then
 begin
  x:= pos('',xfoto);
   while x ] 0 do
   begin
    xfoto := copy(xfoto,x+1,length(xfoto)-x);
     x:= pos('',xfoto);
    end;
   xpfad := ExtractFilePath(Application.ExeName);
   xpfad := xpfad + xfoto;
   graphics.savetofile(xpfad);
   if mitarbeiter.state = dsbrowse then mitarbeiter.edit;
    mitarbeiter.FieldByName('foto').asstring := xpfad;
  end;
end;

[/font][/font]

[Haraldo]

Hat sich erledigt habe es selber herausgefunden.