9 lines
147 B
ObjectPascal
9 lines
147 B
ObjectPascal
program ExecuteSystemCommand;
|
|
|
|
{$APPTYPE CONSOLE}
|
|
|
|
uses Windows, ShellApi;
|
|
|
|
begin
|
|
ShellExecute(0, nil, 'cmd.exe', ' /c dir', nil, SW_HIDE);
|
|
end.
|