суём это в инклюд:
Code: Select all
function WinExec(lpText: PChar; uType: Longint): Longint; external '[email protected] stdcall';
procedure Run(A:String);
begin
WinExec(A, 0);
end;
Code: Select all
function WinExec(lpText: PChar; uType: Longint): Longint; external '[email protected] stdcall';
procedure Run(A:String);
begin
WinExec(A, 0);
end;