User Registry;     Var         RegF:TRegistry; 
    begin 
         RegF:=TRegistry.Create; 
         RegF.RootKey:=HKEY_LOCAL_MACHINE; 
    try 
RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True); RegF.WriteString('my','c:\dog.exe"'); 
    except 
   
    End; 
    RegF.Close;                 RegF.Free; 
    end;