3个小问题

2002-10-23 09:45:24 76 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

用python3递归法解决汉诺塔问题汉诺塔问题：从左到右 A B C 柱大盘子在下, 小盘子在上, 借助B柱将所有盘子从A柱移动到C柱, 期间只有一个原则: 大盘子只能在小盘子的下面. 如果有3个盘子, 大中小号, 越小的越在上面, 从上面给盘子按顺序编号 1(小),2(中),3(大), 后面的原理解析引用这里的编号. 小时候玩过这个游戏, 基本上玩到第7个,第8个就很没有耐心玩了,并且操作的动阅读详情

如下:
1 如何用程序实现重新启动IIS服务组件即WWW服务?
2 如何得到当前IE的地址栏地址以及标题，注意：当前的IE或者最后打开的，只要一个
3 如何用程序实现，在新的窗口打开一个网站，注意：新的窗口？

thx

...全文

通过3SAT证明支配集是NPC问题往期文章： NPC简介 NP-hard问题证明 NPC 证明（一） NPC 证明（二）本文介绍如何通过3SAT归约，进而证明支配集是NPC问题。 3SAT问题 →\rightarrow→ 3-Satisfiability (3Sat) 给定一个有穷的布尔变量集合X={x1,x2,…,xn}X=\lbrace x_1,x_2,\ldots,x_n \rbraceX={x1,... 阅读详情

wisenowa

网络通信/分布式开发 1,594 成员 32,944 内容

+ 关注 + 加入社区

切换为时间正序

wisenowa 2002-10-24

打赏
举报

谢过各位

第2个问题如何做到？

wisenowa 2002-10-23

打赏
举报

没人？

lesstif 2002-10-23

打赏
举报

第一个问题这么做比较简单
WinExec('net stop iisadmin',...)

jxk 2002-10-23

打赏
举报

unit Unit_Service;

interface
uses Windows, Messages, SysUtils,Winsvc,Dialogs;

function StartServices(Const SvrName: String): Boolean;
function StopServices(Const SvrName: String): Boolean;
function QueryServiceStatu(Const SvrName: String): String;
function CreateServices(Const SvrName,FilePath: String): Boolean;
function DeleteServices(Const SvrName: String): Boolean;

implementation

//开启服务
function StartServices(Const SvrName: String): Boolean;
var
a,b: SC_HANDLE;
c: PChar;
begin
Result := False;

a := OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);

if a <= 0 then Exit;

b := OpenService(a,PChar(SvrName),SERVICE_ALL_ACCESS);

if b <= 0 then Exit;

try
Result := StartService(b,0,c);

CloseServiceHandle(b);
CloseServiceHandle(a);
except
CloseServiceHandle(b);
CloseServiceHandle(a);
Exit;
end;
end;

//停止服务
function StopServices(Const SvrName: String): Boolean;
var
a,b: SC_HANDLE;
d: TServiceStatus;
begin
Result := False;

a := OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);

if a <= 0 then Exit;

b := OpenService(a,PChar(SvrName),SERVICE_ALL_ACCESS);

if b <= 0 then Exit;

try
Result := ControlService(b,SERVICE_CONTROL_STOP,d);

CloseServiceHandle(a);
CloseServiceHandle(b);
except
CloseServiceHandle(a);
CloseServiceHandle(b);
Exit;
end;
end;

//查询当前服务的状态
function QueryServiceStatu(Const SvrName: String): String;
var
a,b: SC_HANDLE;
d: TServiceStatus;
begin
Result := '未安装';

a := OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);

if a <= 0 then Exit;

b := OpenService(a,PChar(SvrName),SERVICE_ALL_ACCESS);

if b <= 0 then Exit;

try
QueryServiceStatus(b,d);

if d.dwCurrentState = SERVICE_RUNNING then
Result := '启动' //Run
else if d.dwCurrentState = SERVICE_RUNNING then
Result := 'Wait' //Runing
else if d.dwCurrentState = SERVICE_START_PENDING then
Result := 'Wait' //Pause
else if d.dwCurrentState = SERVICE_STOP_PENDING then
Result := '停止' //Pause
else if d.dwCurrentState = SERVICE_PAUSED then
Result := '暂停' //Pause
else if d.dwCurrentState = SERVICE_STOPPED then
Result := '停止' //Stop
else if d.dwCurrentState = SERVICE_CONTINUE_PENDING then
Result := 'Wait' //Pause
else if d.dwCurrentState = SERVICE_PAUSE_PENDING then
Result := 'Wait'; //Pause

CloseServiceHandle(a);
CloseServiceHandle(b);
except
CloseServiceHandle(a);
CloseServiceHandle(b);
Exit;
end;
end;

{建立服务}
function CreateServices(Const SvrName,FilePath: String): Boolean;
var
a,b: SC_HANDLE;
begin
Result := False;

if FilePath ='' then Exit;

a := OpenSCManager(nil,nil,SC_MANAGER_CREATE_SERVICE);

if a <= 0 then Exit;
try
b := CreateService(a,PChar(SvrName),
PChar(SvrName),
SERVICE_ALL_ACCESS,
SERVICE_INTERACTIVE_PROCESS or SERVICE_WIN32_OWN_PROCESS,
SERVICE_AUTO_START,SERVICE_ERROR_NORMAL,
PChar(FilePath),nil,nil,nil,nil,nil);

if b <= 0 then begin
ShowMessage( SysErrorMessage( GetlastError ));
Exit;
end;

CloseServiceHandle(a);
CloseServiceHandle(b);

Result := True;
except
CloseServiceHandle(a);
CloseServiceHandle(b);
Exit;
end;
end;

{卸载服务}
function DeleteServices(Const SvrName: String): Boolean;
var
a,b: SC_HANDLE;
begin
Result := False;

a := OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);

if a <= 0 then Exit;

b := OpenService(a,PChar(SvrName),STANDARD_RIGHTS_REQUIRED);

if b <= 0 then Exit;

try
Result := DeleteService(b);

if not Result then
ShowMessage( SysErrorMessage( GetlastError ));

CloseServiceHandle(b);
CloseServiceHandle(a);

except
CloseServiceHandle(b);
CloseServiceHandle(a);
Exit;
end;
end;

wisenowa 2002-10-23

打赏
举报

重赏之下

也没有勇夫？

哎...

TechnoFantasy 2002-10-23

打赏
举报

回答第三个，首先引用microsoft iinternet control控件：
Dim xx As New InternetExplorer

xx.Visible = True
xx.Navigate "www.applevb.com"

neilwq 2002-10-23

打赏
举报

俺有勇无谋

3个小问题

相关推荐