本文整理自网络,侵删。
function CompareMAC(MAC1, MAC2: array of byte): boolean;var I: integer;begin Result := False; For I := 0 To 5 do begin if MAC1[I] <> MAC2[I] Then Exit; end; Result := True;end;
相关阅读 >>
winapi 字符及字符串函数(1): charlower - 字符或字符串转小写
Delphi屏蔽win、ctrl_esc、alt_tab、alt_f4等键(windows xp、windows 2003 server下测试通过)
更多相关阅读请进入《Delphi》频道 >>