如何读取BIOS序列号？

Question

在运行Windows的PC中，如何读取BIOS序列号和CPU序列号？ 我用的是pascal，Delphi7。 这样做的原因是我想使用独特的东西来识别 PC，以保护我的应用程序免遭未经授权的使用。

Answer 1

我有一个单元，uSMBios，它返回 BIOS 名称。这不是我的代码，所以我只会发布部分标题。

// Unit uSMBIOS
// unit for the TSMBIOS Project https://github.com/RRUZ/tsmbios
// The contents of this file are subject to the Mozilla Public License Version 1.1     
// you may not use this file except in compliance with the License. You may obtain  
// a copy of the License at http://www.mozilla.org/MPL/
// Software distributed under the License is distributed on an "AS IS" basis, 
// WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for 
// the specific language governing rights and limitations under the License.
// The Original Code is uSMBIOS.pas.
// The Initial Developer of the Original Code is Rodrigo Ruz V.
// Portions created by Rodrigo Ruz V. are Copyright (C) 2012-2015 Rodrigo Ruz V.
// All Rights Reserved.