Главная страницаОбратная связьКарта сайта

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

function GetBIOSDate: string;
{получение даты BIOS в Win95}
var
  s: array[0..7] of char;
  p: pchar;
begin
  p := @s;
  asm
    push esi
    push edi
    push ecx
    mov esi,$0ffff5
    mov edi,p
    mov cx,8
    @@1:mov al,[esi]
    mov [edi],al
    inc edi
    inc esi
    loop @@1
    pop ecx
    pop edi
    pop esi
  end;
  setstring(result, s, 8);
end;

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


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

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


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