在注册表里怎么找不到我注册的文件. try RegF := TRegistry.Create; try RegF.RootKey := HKEY_CLASSES_ROOT; if regf.OpenKey('wlgl\mypath',true) then begin regf.WriteString('reppath','C:\Program Files\wlgl'); end else begin regf.OpenKey('wlgl',true); regf.CreateKey('mypath'); regf.WriteString('reppath','C:\Program Files\wlgl') ; end; regf.CloseKey ; if regf.OpenKey('wlgl\mypath',true) then if regf.ValueExists('reppath') then self.lblMsg.Visible := false; finally regf.Free ; end; except end;
RegF.RootKey := HKEY_current_user;
regf.openkey('software\你的软件名',true);
regf.writestring('项目名','项目值')
var Reg:TRegistry;
begin
Reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\huaxin\zwkq',true);
Reg.WriteString('wz_url',edit1.Text);
reg.Free;
end;
reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\wlgl,true);
reg.createkey('mypath');
Reg.WriteString('myreports',edit1.Text);
reg.Free;
注册了后,在注册表里没找到MYREPORTS
try
RegF := TRegistry.Create;
try
RegF.RootKey := HKEY_CLASSES_ROOT;
if regf.OpenKey('wlgl\mypath',true) then
begin
regf.WriteString('reppath','C:\Program Files\wlgl');
end else
begin
regf.OpenKey('wlgl',true);
regf.CreateKey('mypath');
regf.WriteString('reppath','C:\Program Files\wlgl') ;
end;
regf.CloseKey ;
if regf.OpenKey('wlgl\mypath',true) then
if regf.ValueExists('reppath') then
self.lblMsg.Visible := false;
finally
regf.Free ;
end;
except
end;