- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
function CanonicPath(const PathName:string):string; forward;
begin
SetLength(Result,Length(PathName));
if PathCanonicalize(PChar(Result), PChar(PathName)) then
SetLength(Result, PChar(StrLen(Result)))
else
Result:=PathName;
end;
var
i:integer;
path:string;
begin
{...}
for i:=1 to 200 do
Path:=PathCanonicalize(Path);
{...}
Попытка сократить путь из ".\.\.\.\.\.\.\.\.\.\path" в ".\path"
Из одной утилитки.
А что, это тоже из "слоника"?