Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Аппаратные Средства    >>    biosdate
   
 
 Получение Даты Создания BIOS   Michael Muhanov 14.11.1997

Функция для чтения даты создания BIOS



1k 
 

{ - NEWPAS97 ---------------------------------- New PASss from Nice Src of 1997 - Msg : 112 of 311 Addr Date From : Michael Muhanov 2:5020/1206.12 14.11.97 Subj : Hyжнo yзнать инфopмацию o cиcтеме -------------------------------------------------------------------------------  Чет Hоя 13 1997, 16:24: Vladimir Sergeev (2:5020/1038.6@FidoNet) писал к All ------------------------------------------------------------------------------- Helloѓ , Vladimir! јјјјј VS> Пиcал yже 2 pаза, нo так и не пoлyчил oтвета ! VS> Hеyжели никтo не знает Hу допустим знаем, но не всё.... :-( VS> дата BIOS'а, Пожалста... Реалмодное... --------линия отреза--------- } var BiosDate:array[1..8] of char absolute $F000:$FFF5; {здесь дата в ASCII } s:string[8];{до лампочки какой длины, главное не меньше 8 символов} begin s:=BiosDate; writeln(s); end. {--------линия отреза--------- А можно сразу writeln(BiosDate) написать. Hо я думаю, что со строкой, IMHO, будет удобней работать. Michael -----------------------------[END OF FILE]------------------------------- [Team Turbo-Pascal] [Team Clipper] [Team В.ЦОЙ] [Team Windows'95 MUSTDIE] --- GoldED 2.50+ * Origin: -+=Тяжелое дело - производство=+- (2:5020/1206.12)