如何将系统时间写到注册表里面，又怎样把写入注册表的时间取出来？

Question

如何将系统时间写到注册表里面，又怎样把写入注册表的时间取出来？我没有相关的资料

Answer 1

没有可以搜索的嘛,www.google.com搜索delphi注册表操作

Answer 2

将时间转成string，再用TRegistry的WriteString和ReadString进行读写

Answer 3

给你个例子,但是不是时间,你可以把相关的值改成时间,下面的例子 是把一个路径保存到注册表中:procedure Tfmpicpath.BitBtn2Click(Sender: TObject);
var
regtext: TRegistry;
begin
if trim(edtpath.Text)='' then
begin
  showmessage('目錄不能為空！');
  exit;
end;
 /////////////// try
 //
 regtext:=TRegistry.Create;
   try
 regtext.RootKey:=HKEY_LOCAL_MACHINE;
if   regtext.OpenKey('Software\mypath',true) then
 begin
  regtext.WriteString('picpath',''+Trim(edtpath.Text)+'');
 end else
begin
 regtext.OpenKey('Software',true);
 regtext.CreateKey('mypath');
 regtext.WriteString('picpath',''+Trim(edtpath.Text)+'');
end;
 regtext.CloseKey; if  regtext.OpenKey('Software\mypath',true) then
 if  regtext.ValueExists('picpath') then
 showmessage('創建圖檔路徑成功，下次登陸生效！');
///////////////////////
  
 finally
      regtext.Free;
    end;
  except
     showmessage('創建圖檔路經失敗！');    raise;
  end;
procedure Tfmpicpath.BitBtn2Click(Sender: TObject);
var
regtext: TRegistry;
begin
if trim(edtpath.Text)='' then
begin
  showmessage('目錄不能為空！');
  exit;
end;
 /////////////// try
 //
 regtext:=TRegistry.Create;
   try
 regtext.RootKey:=HKEY_LOCAL_MACHINE;
if   regtext.OpenKey('Software\mypath',true) then
 begin
  regtext.WriteString('picpath',''+Trim(edtpath.Text)+'');
 end else
begin
 regtext.OpenKey('Software',true);
 regtext.CreateKey('mypath');
 regtext.WriteString('picpath',''+Trim(edtpath.Text)+'');
end;
 regtext.CloseKey; if  regtext.OpenKey('Software\mypath',true) then
 if  regtext.ValueExists('picpath') then
 showmessage('創建圖檔路徑成功，下次登陸生效！');
///////////////////////
  
 finally
      regtext.Free;
    end;
  except
     showmessage('創建圖檔路經失敗！');    raise;
  end;

Answer 4

下面是从注册表中读取数据//////////////////////
try
 //
 regtext:=TRegistry.Create;
   try
 regtext.RootKey:=HKEY_LOCAL_MACHINE;
if   regtext.OpenKey('Software\mypath',true) then
 begin  dmpath:=regtext.ReadString('picpath');
 end ;
 regtext.CloseKey;
  
 finally
      regtext.Free;
    end;
  except
    raise;
    showmessage('讀取圖檔路徑失敗！');
  end;/////////用到 注册表要uses Registry