Új hozzászólás Aktív témák

• #1244 pIIrash tag czappa #1240

  Új Válasz 2006-06-23 00:10:46 #1244

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  pIIrash

  tag

  válasz czappa #1240 üzenetére

  
  unit un_RMethods;
  
  interface
  
  uses Windows, SysUtils, Registry;
  
  const
  CurVer = 'SOFTWARE\Microsoft\Windows\CurrentVersion\';
  R_UninstPrg = CurVer + 'Uninstall';
  R_RUN = CurVer + 'Run';
  
  procedure SetStartWithWindows(AppName, AppTitle: string);
  procedure SetRegistryValue(RootKey: HKEY; Key, KeyName, Value, regType: string);
  
  implementation
  
  procedure SetRegistryValue(RootKey: HKEY; Key, KeyName, Value, regType: string);
  var
  Registry: TRegistry;
  begin
  Registry := TRegistry.Create;
  with Registry do
  begin
  try
  RootKey := RootKey;
  if OpenKey(Key, False) then
  begin
  if regType = 'STR' then WriteString(KeyName, Value);
  if regType = 'BOL' then WriteBool(KeyName, StrToBool(Value));
  if regType = 'INT' then WriteInteger(KeyName, StrToInt(Value));
  end;
  finally
  Free;
  end;
  end;
  end;
  
  function GetRegistryValue(RootKey: HKEY; Key, Value, regType: string): string;
  var
  Registry: TRegistry;
  TempValue: string;
  begin
  Registry := TRegistry.Create;
  with Registry do
  begin
  try
  RootKey := RootKey;
  if OpenKey(Key, False) then
  begin
  if regType = 'STR' then TempValue := Registry.ReadString(Value);
  if regType = 'BOL' then TempValue := BoolToStr(ReadBool(Value));
  if regType = 'INT' then TempValue := IntToStr(ReadInteger(Value));
  end;
  finally
  Free;
  end;
  end;
  Result := TempValue;
  end;
  
  pl: beírás:
  
  procedure SetStartWithWindows(AppName, AppTitle: string);
  begin
  SetRegistryValue(HKEY_LOCAL_MACHINE, R_RUN, <Program elérési útja>, <Program neve>, 'STR');
  end;
  
  pl: kiolvasás:
  InstallPath := GetRegistryValue(HKEY_LOCAL_MACHINE, SOFTWARE\<A program neve>\, A kulcs amiből olvasni akarsz);
  
  
  Remélem segít!
  
  [Szerkesztve]

• #1241 czappa aktív tag czappa #1240

  Új Válasz 2006-06-20 16:22:25 #1241

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  czappa

  aktív tag

  válasz czappa #1240 üzenetére

  Közben lehet találtam rá megoldást, ha elakadtam szólok, addig is mindkettőtöknek köszönöm a segítséget!

Új hozzászólás Aktív témák