Delphi三十六之硬件篇

下载本文示例代码
　　1 ．端口读写function ReadPortB( wPort : Word ) : Byte;　begin　　asm　　mov dx, wPort　　in al, dx　　mov result, al　end;end;procedure WritePortB( wPort : Word; bValue : Byte );　begin　　asm　　　　mov dx, wPort　　　mov al, bValue　　　out dx, al　end;end;　　2．获知当前机器CPU的速率（MHz）function CPUSpeed: Double;　const　　DelayTime = 500;　var　　TimerHi, TimerLo: DWORD;　　PriorityClass, Priority: Integer;　begin　PriorityClass := GetPriorityClass(GetCurrentProcess);　Priority := GetThreadPriority(GetCurrentThread);　SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);　SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);　Sleep(10);共2页。 1 2 8 : 　　1 ．端口读写function ReadPortB( wPort : Word ) : Byte;　begin　　asm　　mov dx, wPort　　in al, dx　　mov result, al　end;end;procedure WritePortB( wPort : Word; bValue : Byte );　begin　　asm　　　　mov dx, wPort　　　mov al, bValue　　　out dx, al　end;end;　　2．获知当前机器CPU的速率（MHz）function CPUSpeed: Double;　const　　DelayTime = 500;　var　　TimerHi, TimerLo: DWORD;　　PriorityClass, Priority: Integer;　begin　PriorityClass := GetPriorityClass(GetCurrentProcess);　Priority := GetThreadPriority(GetCurrentThread);　SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);　SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);　Sleep(10);共2页。 1 2 8 : 下载本文示例代码


Delphi三十六之硬件篇Delphi三十六之硬件篇Delphi三十六之硬件篇Delphi三十六之硬件篇Delphi三十六之硬件篇Delphi三十六之硬件篇Delphi三十六之硬件篇Delphi三十六之硬件篇Delphi三十六之硬件篇Delphi三十六之硬件篇Delphi三十六之硬件篇Delphi三十六之硬件篇Delphi三十六之硬件篇Delphi三十六之硬件篇Delphi三十六之硬件篇