Как считать значение ячейки памяти?
pirate © (2005-07-10 21:01:00)
Как считать значение ячейки памяти, адрес кот. уже известен.
ИЛИ
Как узнать сколько в системе установлено LPT
и адреса этих портов?
Вот что я пробовал:
procedure TForm1.Button1Click(Sender: TObject);
var p:pinteger;
x:integer;
begin
new(p);
p:=ptr($00000411); < адрес ячейки где в двух последних
битах записано кол-во LPT.
x:=p^; < Выводит какую то ошибку "чтения по адресу
00000411"
x:=(x and(128+64))shr 6; < манипуляции по извлечению битов
edit1.Text:=inttostr(x);
freemem(p);
end;
Eraser (2005-07-10 23:27:00) [1]
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1121022378&n=0
Наверх 
ЧАТ |
Орешник |
|
