CoreBoot系統改讀其路徑

uses Registry;

Function GetCoreBootValue : string;
var
  reg:TRegistry;
  skey : string;
begin
  Result := '';
  reg:=TRegistry.create;
  try
    reg.RootKey:=HKEY_LOCAL_MACHINE;
    skey:='SYSTEM\CurrentControlSet\Services\Coreboot';
    if reg.OpenKeyReadOnly(skey) then
    begin
      if(reg.ValueExists('CorebootEnable')) then
      begin
        if (reg.ReadInteger('CorebootEnable')=1) and (reg.ValueExists('CorebootDrive')) then
          Result:=Trim(reg.ReadString('CorebootDrive'));
      end;
      reg.closekey;
    end;
  finally
    reg.free;
  end;
end;

將秒轉成天、小時、分、秒

procedure TForm1.FormCreate(Sender: TObject);
var
  DateTime:TDateTime;
  ASec:integer;
  Hour,Min,Sec,MSec:word;
begin
  ASec:=801;
  //Day:=ASec div 86400;//一天為86400秒
  DateTime:=IncSecond(DateTime,ASec);//轉成TDateTime型態
  DecodeTime(DateTime,Hour,Min,Sec,MSec);//解析成小時,分鐘,秒
  Caption:= IntToStr(Hour)+'小時'+IntToStr(Min)+'分鐘'+IntToStr(Sec)+'秒';
end;