Главная страницаОбратная связьКарта сайта
Насос дозатор на ХТЗ

Получить дату BIOS

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

function GetBiosDate1: String;
 var
    Buffer : Array[0..8] Of Char;
    N : DWORD;
 begin
    ReadProcessMemory(GetCurrentProcess,
    Ptr($FFFF5),
    @Buffer,
    8,
    N);
    Buffer[8] := #0;
    result := StrPas(Buffer)
 end;

 function GetBiosDate2: String;
 begin
    result := string(pchar(ptr($FFFF5)));
 end;


 {Only for Win 95/98/ME) 

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Получить дату BIOS", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2018 Дискета.info