(ALINTIDIR)
procedure WinExec(const a:string);
var b:pchar;
begin
b := Pchar(a);
asm
push 0
push b
Call WinExec_
end;
end;
procedure MoveFile(const a,b:pchar);
begin
asm
push b
push a
Call MoveFile_
end;
end;
procedure DeleteFile(const f:string);
var a:pchar;
begin
a := Pchar(f);
asm
push a
Call DeleteFile_
end;
end;
procedure CopyFile(const a,b:pchar);
begin
asm
push 0
push b
push a
Call CopyFile_
end;
end;
