Как создать путь


function MakeDir(Dir: string): Boolean;
var
I, L: Integer;
CurDir: string;
begin
if ExcludeTrailingBackslash(Dir) = '' then
exit;
Dir := IncludeTrailingBackslash(Dir);
L := Length(Dir);
for I := 1 to L do
begin
CurDir := CurDir + Dir[I];
if Dir[I] = '\' then
begin
if not DirectoryExists(CurDir) then
if not CreateDir(CurDir) then
Exit;
end;
end;

Result := True;
end;

Hosted by uCoz