摘要：
unit DevcapsConst; interface uses Windows; type TDevcap = record iIndex: integer; szLabel: PAnsiChar; szDesc: PAnsiChar; end; const NUMLINES = 20; var devcaps: array[0..NUMLINES-1] of TD...
阅读全文
posted @ 2009-04-22 15:54
zwz_good
阅读(148)
推荐(0)
编辑
摘要：
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
阅读(415)
推荐(0)
编辑
摘要：
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)
编辑
摘要：
program Sysmets2; uses Windows, Messages, Math, sysmets in '..\sysmets.pas'; function WndProc(hwindow: HWND; message, wParam, lParam: LongInt): LRESULT; stdcall;const{$J+} cxChar: Integer = 0; cxC...
阅读全文
posted @ 2009-04-19 19:33
zwz_good
阅读(144)
推荐(0)
编辑
摘要：
program Sysmets1; uses Windows, Messages, sysmets in '..\sysmets.pas'; function WndProc(hwindow: HWND; message, wParam, lParam: LongInt): LRESULT; stdcall;const{$J+} cxChar: Integer = 0; cxCaps: I...
阅读全文
posted @ 2009-04-19 16:53
zwz_good
阅读(132)
推荐(0)
编辑
摘要：
program HelloWin; uses Windows, SysUtils, Messages, MMSystem; function WndProc(HWindow: HWND; message, wParam, lParam: Longint): Longint; stdcall;var hdc1: HDC; ps1: PAINTSTRUCT; rect: TRECT;begin...
阅读全文
posted @ 2009-04-19 11:07
zwz_good
阅读(201)
推荐(0)
编辑
摘要：
procedure TForm1.FormPaint(Sender: TObject);var //font: TFont; lf: TLogFont; I: Integer;begin Canvas.Font.Name:= 'Arial'; Canvas.Font.Size:= 24; Canvas.Font.Color:= clRed; //font:= TFont.Create...
阅读全文
posted @ 2009-04-18 21:50
zwz_good
阅读(162)
推荐(0)
编辑
posted @ 2009-04-18 17:14
zwz_good
阅读(178)
推荐(0)
编辑
摘要：
在标准的Windows程序中所有按钮均没有颜色。因此Delphi提供的所有按钮组件也均无颜色属性，有时你可能做了一个五颜六色的程序界面，而按钮颜色可能很不相称。 在此本人提供一种用自定义组件制作有颜色属性的铵钮的方法，它遵循了Delphi的组件定义规则，完成后该按钮与普通按钮（Button）相比，多了一个Color属性，你可以永远地使用它，在设计阶段随意地改变颜色，就象是Delphi本身提供的组件...
阅读全文
posted @ 2009-04-18 11:22
zwz_good
阅读(426)
推荐(0)
编辑
摘要：
procedure SearchFile(path:string); //注意：path实参 字符串后要加 ' \ ' var SearchRec:TSearchRec; found:integer; begin found:=FindFirst(Path+'*.*',faAnyFile,SearchRec); while found=0 ...
阅读全文
posted @ 2009-04-13 15:49
zwz_good
阅读(194)
推荐(0)
编辑
