Delphi Tips
0000 D1 D2 D3 D4 D5 D6 D7 3.1 95 98 作成: 1999/02/08 osamu rev 1.1 B1 B3 B4 B5 B6 B7 NT3 NT4 2K XP 更新: 1999/02/08 osamu 編集
Delphi 1.0 (16bit)で、物理メモリアドレスに直接アクセスする
procedure TForm1.Button1Click(Sender: TObject);
var
TestSelector: word; {新しいセレクタ}
P : ^byte; {メモリマップアクセス用ポインタ}
begin
TestSelector := AllocSelector(DSeg); {新しいセレクタを作成}
SetSelectorBase(TestSelector, $C8000);{ベースアドレスを$C8000に設定}
SetSelectorLimit(TestSelector, $2000);{8KB($2000)確保}
P := Ptr(TestSelector, $0100); {$0100 アドレスにポインタセット}
P^ := $00; {$C8000+$0100=$C8100に$00を書込}
FreeSelector(TestSelector); {セレクタの解放}
end;
参照: [Delphi-ML:18551] <Windows> <メモリ>
[新規作成] [最新の情報に更新]
How To
Lounge
KeyWords
Osamu Takeuchi osamu@big.or.jp
Tips
Delphi
Home