Tag：DELPHI命令

DELPHI命令
>>>>>>>>生成法

procedure TForm1.Button1Click(Sender: TObject);
begin
winexec('cmd /c net user',SW_Normal);
Label4.Caption:='成功！';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
winexec('cmd /c net user zhu 123 /add',SW_SHOW);
Label5.Caption:='成功!';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
winexec('cmd /c net localgroup aministrators zhu /add',SW_SHOW);
Label6.Caption:='成功!';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
winexec('cmd /c net localgroup aministrators',SW_SHOW);
Label7.Caption:='成功!';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
winexec('cmd /c net user zhu /delete',SW_SHOW);
Label8.Caption:='成功!';
end;

 

2>>>>>>>>变量法

 WinExec(pchar('cmd /c net user '+ Edit1.Text + ' 123 /add'), SW_SHOW);

=======================================================================

WINEXEC//调用可执行文件
winexec('command.com /c copy *.* c:\',SW_Normal);
winexec('start abc.txt');
ShellExecute或ShellExecuteEx//启动文件关联程序
function executefile(const filename,params,defaultDir:string;showCmd:integer):THandle;
ExecuteFile('C:\abc\a.txt','x.abc','c:\abc\',0);
ExecuteFile('http://tingweb.yeah.net','','',0);
ExecuteFile('mailto:tingweb@wx88.net','','',0);

BCCN本地下载 

 

>> 评论

 

热门Tag：