2009年4月20日

摘要： unit Sysmets; interface uses Windows; type TSysmetric = record Index: Integer; szLabel: PAnsiChar; szDesc: PAnsiChar; end; const NUMLINES = 77; Sysmetrics: array[0..NUMLINES-1] of TSysmet... 阅读全文

posted @ 2009-04-20 19:35 zwz_good 阅读(412) 评论(0) 推荐(0) 编辑

程序4-4 Sysmets3

摘要： program Sysmets3; uses windows, Messages, Math, sysmets in '..\sysmets.pas'; function WndProc(hwindow: HWND; message: UINT; wParam, lParam: LongInt): LRESULT; stdcall;{$J+}const cxChar: Integer = ... 阅读全文

posted @ 2009-04-20 19:34 zwz_good 阅读(234) 评论(0) 推荐(0) 编辑


Copyright © 2024 zwz_good Powered by .NET 8.0 on Kubernetes 博客园

导航

2009年4月20日