uses
ShellAPI;
var
Command :String = 'dir c:';
begin
ShellExecute(Handle,nil,'cmd.exe',pchar(command),nil,SW_SHOW);
end.
Delphi 执行Cmd下的命令
最新推荐文章于 2021-03-31 09:09:06 发布
uses
ShellAPI;
var
Command :String = 'dir c:';
begin
ShellExecute(Handle,nil,'cmd.exe',pchar(command),nil,SW_SHOW);
end.