WackoWiki: Test2 ...

begin
 R:=TRegistry.Create;
 R.RootKey:=$80000001;//HKEY_CU;
  if not R.OpenKey('\Software\Desktop Architect\Settings',False) then
    begin
      R.CreateKey('\Software\Desktop Architect\Settings');
      if not R.OpenKey('\Software\Desktop Architect\Settings',False) then
        //failed
      else
       begin
         r.WriteInteger('ShowTips',0);
         r.WriteInteger('Apply',1273);
       end
    end
  else
    begin
       r.WriteInteger('ShowTips',0);
       r.WriteInteger('Apply',1273);
    end;

 path:=Copy(UpperCase(ParamStr(0)), 1, Pos('AUTORUN.EXE', UpperCase(ParamStr(0)))-1);//START1.EXE
end.