凌
凌云客
Unregistered / Unconfirmed
GUEST, unregistred user!
各位大侠:
小弟初尝动态链接库文件的编写,有些愚拙的小问题请教。
写了以下代码:
uses ......,Registry;
......
procedure RegEd;
var Reg:TRegistry; ReadStr:ShortString;
begin
; Reg:=Registry.Create;
; try
; ; ;Reg.RootKey:=HKEY_LOCAL_MACHINE;
; ; ;Reg.OpenKey('/SOFTWARE/Micrsoft/Windows/CurrentVersion/Run');
; ; ;ReadStr:=Reg.ReadString('XXXXXX');
; ; ;if ReadStr<>....
......
; ; ;Reg.CloseKey;
; finally
; ; ;Reg.Free;
; end;
end;
执行到Reg.RootKey的那一行就出错了。如果把代码放到Application中运行,
却一切正常,不知道应该如何解决,望各位赐教。谢谢。
小弟初尝动态链接库文件的编写,有些愚拙的小问题请教。
写了以下代码:
uses ......,Registry;
......
procedure RegEd;
var Reg:TRegistry; ReadStr:ShortString;
begin
; Reg:=Registry.Create;
; try
; ; ;Reg.RootKey:=HKEY_LOCAL_MACHINE;
; ; ;Reg.OpenKey('/SOFTWARE/Micrsoft/Windows/CurrentVersion/Run');
; ; ;ReadStr:=Reg.ReadString('XXXXXX');
; ; ;if ReadStr<>....
......
; ; ;Reg.CloseKey;
; finally
; ; ;Reg.Free;
; end;
end;
执行到Reg.RootKey的那一行就出错了。如果把代码放到Application中运行,
却一切正常,不知道应该如何解决,望各位赐教。谢谢。