zswang(伴水)(需要充充电) KINGRONG 群侠们,请进! -Action 1 = Start, 2 = Restart, 3 = IsRunning, 4 Delete Service, 5 = Install Service, 6 = Stop, 7 = Modify 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject);begin WinExec('C:\MSSQL7\Binn\scm -Action 1 -Silent 1', SW_SHOW);end;procedure TForm1.Button2Click(Sender: TObject);begin WinExec('C:\MSSQL7\Binn\scm -Action 6 -Silent 1', SW_SHOW);end; delphi2007串口控件的问题 谁有深入delphi6网络编程的光盘 怎样通过socket控制管理同一机器上的另外一个程序? 有没有dephi的memo和Richedit的透明控件, 请问哪里有DELPHI6 UPDATE2下载,急用,我查了以前的帖子都不能下了, 高手回:如何编辑Txt文本的某个字段? 为什么模式窗口没用呀 DataSnap中间层TDSServerClass的问题 关于Listbox和Edit.text对比的问题 怎么保证在treeview中一个母节点下一级没有重复的子节点 zswang(伴水)(需要充充电),KingRong群侠们请进! 送上红包! 圖象
begin
WinExec('C:\MSSQL7\Binn\scm -Action 1 -Silent 1', SW_SHOW);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
WinExec('C:\MSSQL7\Binn\scm -Action 6 -Silent 1', SW_SHOW);
end;