销售管理软件版1楼: 在d2006中新建个简单的webservice application,并增加了一个webservice datamodule
怎么搞也读不到winXP2注册表的数据,是不是我搞错哪了？

Unit fcdataMod2;
interface
uses SysUtils,.....,Registry,windows;
......
procedure TIfcServiceDM.SoapDataModuleCreate(Sender: TObject);
var
Reg: TRegistry;
s:widestring;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
try
reg.OpenKey(＇＇＼SOFTWARE＼myKEY＼＇＇,true); //此处OpenKey返回false,把此段程序放到D2006开发的windows application中却能正确读取数据；
s :=Reg.ReadString(＇＇MyData＇＇); //此处S不能取到正确的值,返回空值
finally
Reg.Free;
end;
......
end;

2楼: var
Reg: TRegistry;
s:widestring;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
try
if reg.OpenKey(＇＇＼SOFTWARE＼myKEY＼＇＇,true) = true then
begin
s :=Reg.ReadString(＇＇MyData＇＇);
// 可以呀！
end;
finally

Reg.Free;
end;
end; 如进销存系统需求文档

3楼: unit Unit2;

interface

uses
SysUtils, Classes;

type
TDataModule2 = class(TDataModule)
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
DataModule2: TDataModule2;

implementation
uses
Registry,windows;

{$R *.dfm}

procedure TDataModule2.DataModuleCreate(Sender: TObject);
var
Reg: TRegistry;
s:widestring;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
try
if reg.OpenKey(＇＇＼SOFTWARE＼myKEY＼＇＇,true) = true then
begin
s :=Reg.ReadString(＇＇MyData＇＇);
end;
finally
Reg.Free;
end;
end;


end.

4楼: 权限问题？

5楼: 好象是权限没开

6楼: 不错,正是权限问题,以前因为这个问题问过一次了,久了又不记得了,谢谢两位!

销售管理软件版7楼: 多人接受答案了。