怎样判断电脑是否安装了"Microsoft 网络的文件和打印机共享"服务,急急急,高分1000分!@@(300分)

S

sail_world

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-17

• #1

怎样判断电脑是否安装了"Microsoft 网络的文件和打印机共享"服务,急急急,高分1000分!@@
用代码判断是否安装了这个服务,也可以通过注册表判断,谢谢,急用,1000分放送给大家,谢谢!@ 这里最多只能送300分,如果好使,我再送你700分,绝不失言,谢谢

 

加

加油+加油

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-17

• #2

没搞过,不知道.

 

G

gxw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-18

• #3

也许可以比较
HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Network/{4D36E974-E325-11CE-BFC1-08002BE10318}/{887EEC7C-C76D-49FD-A845-8B55A89AB328}
里面的内容，看看在删除和安装"Microsoft 网络的文件和打印机共享"前后的变化情况。至于具体判断啥随便了，自己拿主意吧，反正也就几项数据而已。

不肯定别的机子是否也能如此判断。我用xp ：））

 

J

jmh521

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-18

• #4

俺也还没搞过...学习...

 

D

del520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-20

• #5

DELPHI里面好像没有现成的涵数，你去找找API涵数试试看，或者通过注册表。我也没有试过。

 

V

vvyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-21

• #6

很 Easy 的问题：“Microsoft 网络的文件和打印机共享服务”对应“Server”服务，如果没安装就不会出现“Server”服务，而“Server”服务的真实名称是“lanmanserver”，查找是否有这项服务就 OK 了。
function LanServerInstalled: Boolean;
var
scm, svc: Longint;
begin
Result := False;
scm := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
if scm = 0 then Exit;
svc := OpenService(scm, PChar('lanmanserver'), SERVICE_ALL_ACCESS);
if svc <> 0 then
begin
Result := True;
CloseServiceHandle(svc);
end;
CloseServiceHandle(scm);
end;
返回 False 表示没有安装，返回 True 表示安装了。对了，那另外的 700 分呢？

 

S

sail_world

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-22

• #7

TO:vvyang
我明天在单位试一下,如果行的话,我会把700再给你的,你放心好了,谢谢

哥们,怎么样屏蔽掉电脑休眼功能,谢谢,高手

 

V

vvyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-23

• #8

首先我不知道什么是“电脑休眼功能”...
另外我也不是高手，只是一个 Delphi 业余爱好者。世界上总是有那么一群闲得无聊的人，他们有的爱旅行，有的爱嫖妓，有的爱冒险，而我呢，爱研究 Pascal...

 

V

vvyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-31

• #9

又一个拉屎不擦屁股的主...

 

V

vvyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-31

• #10

“我明天在单位试一下,如果行的话,我会把700再给你的,你放心好了,谢谢”...
“明天”是哪天？？？

 

V

vvyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-31

• #11

只要楼主不结贴，俺每天把帖子提前一次，比流氓谁怕谁啊...

 

F

frankie_24

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-01

• #12

呵呵.700分啊..

 

G

guxiaoke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-01

• #13

在Unit加入Printers单元
...
var
Printer: TPrinter;
begin
Printer := TPrinter.Create(Form);
Printers.Printers // 这是个TStrings，里面是当前计算机安装的打印机列表
...
end

 

D

Delphizhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-06

• #14

看来没效果...

 

V

vvyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-06

• #15

To Delphizhou：
没效果有两种可能：
1、偶滴提醒对楼主没效果，他选择性失明了...
2、偶写滴代码没效果，不过这不太可能，不然按照楼主“急急急”的情况来看，如果不能用他早跳出来喊啦！

 

F

fox009521

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-06

• #16

我晕哦 楼主估计时光旅行去了

 

V

vvyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-06

• #17

To fox009521：
没有，他还在地球，并至少于 7 月 22 日、7 月 26 日、8 月 2 日来过论坛，而且每次都待了好一段时间；选择性失明起了主要作用...

 

S

sail_world

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-06

• #18

To:vvyang

不好意思,今天才给你回贴,说实话,你的方法比较好,可是4000多台电脑中,有一些是不准的,不过你很优秀了,真的,

 

V

vvyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-06

• #19

To sail_world：
1、那你就少废话，麻溜儿结帖，还有其余的 700 分，你想把帐赖到残奥会结束么...
2、至于有一些不准的情况，跟我的代码没关系，Windows 还会蓝屏呢；各个电脑的软硬件环境都不同，我的电脑还会跳钢管舞呢，你见过么？我不想回答你的任何问题，麻溜结帖，少来那些“优秀”不“优秀”的废话，是男人痛快点儿...
3、如果你不想给那 1000 分你就直说，我这分有的是，你可以向我要，我倒找你 1000 分，但是千万不要跟我说一些没用的废话，我最烦的就是这类不讲信用还愣装大头蒜的人...

 

L

luckyso888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-08

• #20

立信为本