Hi. Du könntest den String, den du abfragst, von hinten nache einem '\' durchsuchen.
Delphi-Quellcode:
var i : Integer;
str :
String;
begin
str := ExtractFilePath(ParamStr(0));
For i := Length(str)-1
downto 0
do
begin
IF str[i] = '
\'
THEN
begin
str := copy(str,0,i);
break;
end;
end;
str := str + '
DB';
end;
Man liest sich, Stanlay
