Saludos
Una Curiosidad, Si PrimerInicio(
false) le asignas falso nunca entrara a
Código Delphi
[-] var
dir: string;
reg: TRegistry;
begin
if usarRegistro then
begin
reg := TRegistry.Create;
try
with reg do begin
RootKey := HKEY_CURRENT_USER;
Result := not KeyExists(rsClaveInicio);
if Result then CreateKey(rsClaveInicio);
end;
finally
reg.Free;
end;
end
O veo mal