发信人: finlove (荒野之狼), 信区: BorlandDev
标  题: 获得时区信息 
发信站: 哈工大紫丁香 (Tue Jan 22 12:39:41 2002) , 转信

获得时区信息 
 

uses Registry; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
reg : TRegistry; 
ts : TStrings; 
i : integer; 
begin 
reg := TRegistry.Create; 
reg.RootKey := HKEY_LOCAL_MACHINE; 
reg.OpenKey( 
'SOFTWARE\Microsoft\Windows\CurrentVersion\Time Zones', 
false); 
if reg.HasSubKeys then begin 
ts := TStringList.Create; 
reg.GetKeyNames(ts); 
reg.CloseKey; 
for i := 0 to ts.Count -1 do begin 
reg.OpenKey( 
'SOFTWARE\Microsoft\Windows\CurrentVersion\Time Zones\' + 
ts.Strings[i], 
false); 
Memo1.Lines.Add(ts.Strings[i]); 
Memo1.Lines.Add(reg.ReadString('Display')); 
Memo1.Lines.Add(reg.ReadString('Std')); 
Memo1.Lines.Add(reg.ReadString('Dlt')); 
Memo1.Lines.Add('----------------------'); 
reg.CloseKey; 
end; 
ts.Free; 
end else 
reg.CloseKey; 
reg.free; 
end; 






--

※ 来源:．哈工大紫丁香 http://bbs.hit.edu.cn [FROM: 211.97.214.52]