|
@@ -777,7 +777,7 @@ end;
|
|
function SetCurrentDir (const NewDir: string): boolean;
|
|
function SetCurrentDir (const NewDir: string): boolean;
|
|
begin
|
|
begin
|
|
{$I-}
|
|
{$I-}
|
|
-{$WARNING Should be rewritten to avoid unit dos dependancy!}
|
|
|
|
|
|
+{$WARNING Should be rewritten to avoid unit dos dependency!}
|
|
ChDir (NewDir);
|
|
ChDir (NewDir);
|
|
Result := (IOResult = 0);
|
|
Result := (IOResult = 0);
|
|
{$I+}
|
|
{$I+}
|
|
@@ -787,7 +787,7 @@ end;
|
|
function CreateDir (const NewDir: string): boolean;
|
|
function CreateDir (const NewDir: string): boolean;
|
|
begin
|
|
begin
|
|
{$I-}
|
|
{$I-}
|
|
-{$WARNING Should be rewritten to avoid unit dos dependancy!}
|
|
|
|
|
|
+{$WARNING Should be rewritten to avoid unit dos dependency!}
|
|
MkDir (NewDir);
|
|
MkDir (NewDir);
|
|
Result := (IOResult = 0);
|
|
Result := (IOResult = 0);
|
|
{$I+}
|
|
{$I+}
|
|
@@ -797,7 +797,7 @@ end;
|
|
function RemoveDir (const Dir: string): boolean;
|
|
function RemoveDir (const Dir: string): boolean;
|
|
begin
|
|
begin
|
|
{$I-}
|
|
{$I-}
|
|
-{$WARNING Should be rewritten to avoid unit dos dependancy!}
|
|
|
|
|
|
+{$WARNING Should be rewritten to avoid unit dos dependency!}
|
|
RmDir (Dir);
|
|
RmDir (Dir);
|
|
Result := (IOResult = 0);
|
|
Result := (IOResult = 0);
|
|
{$I+}
|
|
{$I+}
|