Fórum problema ao manipular registro no windows 7 64 #405343

Verifiquei que se pedir para abrir como administrador , realmente ele cria a chave só que não caminho do
registro q informo

SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN

ele cria em :

Wow6432Node\Microsoft\Windows\CurrentVersion\Run

mas na leitura ñ consigo puxar os valores

estou usando assim :

procedure TF_Inicial.RunOnStartup(sProgTitle, sCmdLine: string;  bRunOnce: boolean);
var
  MyReg : TRegistry;
begin
  try
    MyReg := TRegistry.Create;
    MyReg.RootKey := HKEY_LOCAL_MACHINE;
    MyReg.Openkey('SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN',False);
   //nesta parte nunca achar o valor ...
    if MyReg.ReadString(sProgTitle)='' then
    begin
      MyReg.WriteString(sProgTitle, sCmdLine);
    end;
    MyReg.CloseKey;
  finally
    MyReg.Free;
  end;
end;


já tentei trocar para

MyReg.Openkey('Wow6432Node\Microsoft\Windows\CurrentVersion\Run',False);

mas também não fuciona ....

MyReg.ReadString(sProgTitle) sempre traz "", mesmo tendo valor no registro ...

que no meu caso tem o seguinte valor:

D:\Desenvolvimento\Projetos\Sistema\Source\Server\Debug\Win32\ServerFin.exe

Verifiquei que se pedir para abrir como administrador , realmente ele cria a chave só que não caminho do
registro q informo

SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN

ele cria em :

Wow6432Node\Microsoft\Windows\CurrentVersion\Run

mas na leitura ñ consigo puxar os valores

estou usando assim :

procedure TF_Inicial.RunOnStartup(sProgTitle, sCmdLine: string;  bRunOnce: boolean);
var
  MyReg : TRegistry;
begin
  try
    MyReg := TRegistry.Create;
    MyReg.RootKey := HKEY_LOCAL_MACHINE;
    MyReg.Openkey('SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN',False);
   //nesta parte nunca achar o valor ...
    if MyReg.ReadString(sProgTitle)='' then
    begin
      MyReg.WriteString(sProgTitle, sCmdLine);
    end;
    MyReg.CloseKey;
  finally
    MyReg.Free;
  end;
end;


já tentei trocar para

MyReg.Openkey('Wow6432Node\Microsoft\Windows\CurrentVersion\Run',False);

mas também não fuciona ....

MyReg.ReadString(sProgTitle) sempre traz "", mesmo tendo valor no registro ...

que no meu caso tem o seguinte valor:

D:\Desenvolvimento\Projetos\Sistema\Source\Server\Debug\Win32\ServerFin.exe

Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.