この発言に対し以下のコメントが寄せられています

#00116　謎の全知師      さん　RE:らくらくレジストリ







// らくらくレジストリです。
// const REGPATH = 'SOFTWARE\作者名\ソフト名';
// とするといいと思います。
// (例) const REGPATH = 'SOFTWARE\Takeru\TSEQ';
// もちろん uses Registry を忘れずに。

procedure RegistryWrite(Name : String; Value : integer);
var Reg : TRegistry;
begin
  Reg := TRegistry.create;
  try
     Reg.RootKey := HKEY_CURRENT_USER;
     Reg.OpenKey(REGPATH, true);
     Reg.Writeinteger(Name, Value);
     Reg.CloseKey;
  finally
     Reg.free;
  end;
end;

function RegistryRead(Name : String; Def : integer) : integer;
var Reg : TRegistry;
begin
  Reg := TRegistry.create;
  try
     Reg.RootKey := HKEY_CURRENT_USER;
     Reg.OpenKey(REGPATH, true);
     if Reg.ValueExists(Name) = false then RegistryWrite(Name, Def);
     result := Reg.Readinteger(Name);
     Reg.CloseKey;
  finally
     Reg.free;
  end;
end;

procedure RegWriteStr(Name : String; sValue : String);
var Reg : TRegistry;
begin
  Reg := TRegistry.create;
  try
     Reg.RootKey := HKEY_CURRENT_USER;
     Reg.OpenKey(REGPATH, true);
     Reg.WriteString(Name, sValue);
     Reg.CloseKey;
  finally
     Reg.free;
  end;
end;

function RegReadStr(Name : String; sDef : String) : String;
var Reg : TRegistry;
begin
  Reg := TRegistry.create;
  try
     Reg.RootKey := HKEY_CURRENT_USER;
     Reg.OpenKey(REGPATH, true);
     if Reg.ValueExists(Name) = false then RegWriteStr(Name, sDef);
     result := Reg.ReadString(Name);
     Reg.CloseKey;
  finally
     Reg.free;
  end;
end;

−−−−−−−−−−−−−−−−−−−−−
Ｔｓ f4549534@ca.aif.or.jp

Original document by Ts              氏 ID:(JAF10202)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。