[分享]新手和CN必看

-----------------------------------------------------------------------------
BlockWrite 将记忆体区块写入档案.
-----------------------------------------------------------------------------
Unit System
函数原型 procedure BlockRead(var F: File; var Buf; Count: Integer
[; var Result: Integer]);
函数原型 procedure BlockWrite(var f: File; var Buf; Count: Integer
[; var Result: Integer]);
范例 var
FromF, ToF: file;
NumRead, NumWritten: Integer;
Buf: array[1..2048] of Char;
begin
if OpenDialog1.Execute then
{ Display Open dialog box }
begin
AssignFile(FromF, OpenDialog1.FileName);
Reset(FromF, 1); { Record size = 1 }
if SaveDialog1.Execute then
{ Display Save dialog box }
begin
AssignFile(ToF, SaveDialog1.FileName);
{ Open output file }
Rewrite(ToF, 1); { Record size = 1 }
Canvas.TextOut(10, 10,'Copying '+
IntToStr(FileSize(FromF))+ ' bytes...');
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <>
NumRead);
CloseFile(FromF);
CloseFile(ToF);
end;
end;
end;
======================================
Variant support routines 鬼牌变数函式
======================================
VarArrayCreate 建立一个variant array.
-----------------------------------------------------------------------------
Unit System
函数原型 function VarArrayCreate(const Bounds: array of Integer;
VarType: Integer): Variant;
范例 procedure TForm1.Button1Click(Sender: TObject);
var
A:Variant;
S:String;
begin
A:=VarArrayCreate([0,4],varVariant);
A[0]:=1;
A[1]:=1234.5678;
A[2]:='Hello world';
A[3]:=TRUE;
A[4]:=VarArrayOf([1 ,10 ,100 ,10000]);
S:=A[4][2];
S:=A[2]+' '+S;
Label1.Caption:=S;
end;
说明 S:=A[4][2]; Variant可以不用函数来做转换.
只能单独使用,如为下列则有误.
S:=A[2]+' '+A[4][2];

VarType
varEmpty $0000 The variant is Unassigned.
varNull $0001 The variant is Null.
varSmallint $0002 16-bit signed integer (type Smallint).
varInteger $0003 32-bit signed integer (type Integer).
varSingle $0004 Single-precision floating-point value
(type Single).
varDouble $0005 Double-precision floating-point value
(type Double).
varCurrency $0006 Currency floating-point value (type Currency).
VarDate $0007 Date and time value (type TDateTime).
VarOleStr $0008 Reference to a dynamically allocated
UNICODE string.
varDispatch $0009 Reference to an OLE automation object
(an IDispatch interface pointer).
VarError $000A Operating system error code.
varBoolean $000B 16-bit boolean (type WordBool).
varVariant $000C Variant (used only with variant arrays).
varUnknown $000D Reference to an unknown OLE object
(an IUnknown interface pointer).
varByte $0011 8-bit unsigned integer (type Byte).
VarString $0100 Reference to a dynamically-allocated long string
(type AnsiString).
varTypeMask $0FFF Bit mask for extracting type code. This constant
is a mask that can be combined with the VType
field using a bit-wise AND..
varArray $2000 Bit indicating variant array. This constant is a
mask that can be combined with the VType field
using a bit-wise AND to determine if the variant
contains a single value or an array of values.
VarByRef $4000 This constant can be AND'd with Variant.VType
to determine if the variant contains a pointer to
the indicated data instead of containing the data
itself.

范例 var
V1, V2, V3, V4, V5: Variant;
I: Integer;
D: Double;
S: string;
begin
V1 := 1; { Integer value }
V2 := 1234.5678; { Real value }
V3 := 'Hello world'; { String value }
V4 := '1000'; { String value }
V5 := V1 +V2 +V4; { Real value 2235.5678 }
I := V1; { I = 1 }
D := V2; { D = 1234.5678 }
S := V3; { S = 'Hello world' }
I := V4; { I = 1000 }
S := V5; { S = '2235.5678' }
end;
-----------------------------------------------------------------------------
VarArrayOf 建立一个简单的一维variant array
-----------------------------------------------------------------------------
Unit System
函数原型 function VarArrayOf(const Values: array of Variant): Variant;
范例 var
A:Variant;
begin
A:=VarArrayOf([1 ,10 ,'Hello ,10000]);
S:=A[1]+' '+IntToStr(A[2]);
Label1.Caption:=S;
end;

-----------------------------------------------------------------------------
** S:=False,A以经建立了.
-----------------------------------------------------------------------------
VarIsNull 传回Variant是否为NULL.
-----------------------------------------------------------------------------
Unit System
函数原型 function VarIsNull(const V: Variant): Boolean;
-----------------------------------------------------------------------------
VarAsType 将Variant转为另外一个型态的Variant.
-----------------------------------------------------------------------------
VarCast
-----------------------------------------------------------------------------
Unit System
函数原型 function VarAsType(const V: Variant; VarType: Integer):
Variant;
函数原型 procedure VarCast(var Dest: Variant; const Source: Variant;
VarType: Integer);
说明 VarType不可为varArray or varByRef.
-----------------------------------------------------------------------------
VarType 传回Variant的型态.
-----------------------------------------------------------------------------
Unit System
函数原型 function VarType(const V: Variant): Integer;
-----------------------------------------------------------------------------
VarClear 将variant清除,成为Unassigned状态.
-----------------------------------------------------------------------------
Unit System
函数原型 procedure VarClear(var V: Variant);
-----------------------------------------------------------------------------
VarCopy 拷贝一个variant.
-----------------------------------------------------------------------------
Unit System
函数原型 procedure VarCopy(var Dest: Variant; const Source: Variant);
说明 与Dest:=Source;效果一样.
-----------------------------------------------------------------------------
VarFromDateTime 将DateTime转为Variant.
-----------------------------------------------------------------------------
VarToDateTime 将Variant转为DateTime.
-----------------------------------------------------------------------------
Unit System
函数原型 function VarFromDateTime(DateTime: TDateTime): Variant;
函数原型 function VarToDateTime(const V: Variant): TDateTime;

=============================
函数
==============================
procedure TForm1.Button2Click(Sender: TObject);
var
Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile('G:\33.bmp ');
Form1.Canvas.Brush.Bitmap := Bitmap;
Form1.Canvas.FillRect(Rect(0,0,18,15));
finally
Form1.Canvas.Brush.Bitmap := nil;
Bitmap.Free;
end;
end;

## Canvas, Brush, Bitmap, FillRect Example

============================
AnsiCompareFileName(const S1, S2: string ): Integer; SysUtils
===================================
AnsiExtractQuotedStr (var S: PChar;Quote: Char ): string;
SysUtils
var
S1: PChar;
S2: string;
begin
S1:= '/??. ?????????? /???.56/';
S2:= AnsiExtractQuotedStr(S1,'/'); // S2 := '??. ?????????? '
MessageDlg(S2, mtInformation, [mbOk], 0);
end;
----------------------------------------------------------
AnsiLastChar( const S: string ): PChar;
SysUtils

----------------------------------------------------------

AnsiLowerCaseFileName( const S: string ): string;
SysUtils
----------------------------------------------------------

AnsiPos ( const Substr, S: string ): Integer
SysUtils
var
Substr, S: string;
I: Integer;
begin
S:= '???????? ??????';
Substr:= '???';
I:= AnsiPos(Substr, S); // I:= 3
...
end;
----------------------------------------------------------

AnsiQuotedStr (const S: string;Quote: Char ): string;
SysUtils
var
S: string;
begin
S:= '1997-1998??.';
S:= AnsiQuotedStr(S, '-'); // S := '-1997--1998??.-'
MessageDlg(S, mtInformation, [mbOk], 0);
end;
----------------------------------------------------------
AnsiSameStr ( const S1, S2: string ): Boolean;
SysUtils
----------------------------------------------------------
AnsiSameText ( const S1, S2: string ): Boolean;
SysUtils
----------------------------------------------------------

AnsiStrComp( S1, S2: PChar ): Integer
SysUtils
----------------------------------------------------------
AnsiStrIComp( S1, S2: PChar ): Integer;
SysUtils
----------------------------------------------------------

AnsiStrLastChar( P: PChar ): PChar;
SysUtils
----------------------------------------------------------

AnsiStrLComp(S1, S2: PChar;MaxLen: Cardinal ): Integer;

SysUtils
var
P1,P2: PChar;
Len : Integer;
begin
P1:= '?????? ?????????? ?? ?????? ????????? ????????.';
P2:= '?????? ?????????? ?? ?????? ????????? ????????!';
Len:= length(p1)-1;
If AnsiStrLIComp(P1, P2, Len)=0 then MessageDlg( P1+ #13+ P2+ #13+ '??????, ? ???????? ?????? '+ IntTostr(Len)+' ????????, ?????', mtInformation, [mbOk], 0);
end;
----------------------------------------------------------

AnsiStrLIComp(S1, S2: PChar;MaxLen: Cardinal ): Integer;

SysUtils
var
P1,P2: PChar;
Len : Integer;
begin
Len:= 7;
P1:= '?????? 1';
P2:= '?????? 2';
If AnsiStrLIComp(P1, P2, Len)=0 then MessageDlg( P1+ #13+ P2+ #13+ '??????, ? ???????? ?????? '+ IntTostr(Len)+' ????????, ?????', mtInformation, [mbOk], 0);
end;

----------------------------------------------------------
GetFormatSettings;
SysUtils
----------------------------------------------------------

IsDelimiter (const Delimiters, S: string;Index: Integer ): Boolean;

SysUtils
var
S: string;
begin
S:= '???????, ?????? ??????????!';
If IsDelimiter( '!.,-', S, 8) then
MessageDlg( '???????!', mtWarning, [mbOK], 0)
else
MessageDlg( '??????????!', mtWarning, [mbOK], 0);
end;
----------------------------------------------------------
IsPathDelimiter (const S: string;Index: Integer ): Boolean;

SysUtils
If IsPathDelimiter( S, Length(S))

then S:=Copy( S, 1, Length(S)-1);
----------------------------------------------------------
LastDelimiter (const Delimiters, S: string ): Integer;
SysUtils
var
I: Integer;
begin
I:= LastDelimiter('!;.,-', '???????, ??????, ??????????'); // I := 16
end;
----------------------------------------------------------
LineStart( Buffer, BufPos : PChar ): PChar
Classes--
--------------------------------------------------------
QuotedStr ( const S: string ): string;
SysUtils
----------------------------------------------------------
SetLength ( var S; Length: Integer );
System
----------------------------------------------------------

SetString (var S: string;Buffer: PChar;Length: Integer );

System
----------------------------------------------------------
Str ( X [: Width [: Decimals ]]; var S );
System
var

S: string;
I: Real;

begin

I:= -52.123456789;
Str( I:6:2, S); { S := ' -52.12' }
MessageDlg( S, mtInformation, [mbOk], 0);

end;
----------------------------------------------------------
StrBufSize( S: PChar ): Cardinal;
SysUtils
----------------------------------------------------------

StrByteType(S: PChar;Index: Cardinal ): TMbcsByteType;
SysUtils
----------------------------------------------------------
StringOfChar (Ch: Char;Count: Integer ): string;

System
S:= StringOfChar( '.' , 3); // S:= '...'
----------------------------------------------------------
StringReplace (const S, OldSubstr, NewSubstr: string;Flags: TReplaceFlags ): string;
SysUtils
type TReplaceFlags = set of ( rfReplaceAll, rfIgnoreCase );

var
S: string;
Flags: TReplaceFlags;
begin
Flags:= [ rfReplaceAll, rfIgnoreCase ];
S:= '???? - ????? ?????';
S:= StringReplace( S, '??', '??', Flags); // S :='???? - ????? ?????' }
MessageDlg( S, mtInformation, [mbOk], 0);
end;
----------------------------------------------------------

StringToWideChar(const Source: string;Dest: PWideChar;DestSize: Integer ): PWideChar

System
----------------------------------------------------------
UniqueString( var S: string );
System
----------------------------------------------------------

===========================================================================
数学函数 (Arithmetic Routines)

Unit: System
===========================================================================
Abs 传回叁数的绝对值。 function Abs(X);
ArcTan 传回正切函数的反函数值。 function ArcTan(X: Real): Real;
Cos 传回馀弦函数值 function Cos(X: Real): Real;
(X 以弧度为单位)。
Exp 传回自然指数值。 function Cos(X: Real): Real;
Frac 传回叁数的小数部份。 function Frac(X: Real): Real;
Int 传回叁数的整数部份。 function Int(X: Real): Real;
Ln 传回自然对数值。 function Ln(X: Real): Real;
Pi 传回圆周率π的值。 function Pi: Real;
Sin 传回正弦函数值。 function Sin(X: Real): Real;
Sqr 传回叁数的平方。 function Sqr(X: Real): (Real);
Sqrt 传回叁数的平方根。 function Sqrt(X: Real): Real;
===========================================================================
控制台函数 (Console Routines)
===========================================================================
Unit: WinCrt
函数名称 函数说明 函数语法
===========================================================================
AssignCrt 将文字档连结到一个控制台视窗。 procedure AssignCrt(var f: Text);
ClrEol 清附游标位置到该行最後的所有字元。procedure ClrEol;
ClrScr 清附萤幕并重置游标至左上角。 procedure ClrScr;
CursorTo 移动游标至给定座标。 procedure CursorTo(X, Y:Integer);
DoneWinCrt 结束控制台视窗。 procedure DoneWinCrt;
GotoXY 移动游标至给定座标。 procedure GotoXY(X, Y: Byte);
InitWinCrt 建立控制台视窗。 procedure InitWinCrt;
KeyPressed 判断是否有一按键。 function KeyPressed:Boolean;
ReadBuf 从控制台视窗读入一行。 function ReadBuf(Buffer: Pchar;Count: Word):
ReadKey 读取按键字元。function ReadKey: Char;
ScrollTo 卷动控制台视窗至显示位置。procedure ScrollTo(X, Y: Integer);
TrackCursor 卷动控制台视窗宜到游标可见。procedure TrackCursor;
WhereX 传回游标的X 座标。function WhereX: Byte;
WhereY 传回游标的Y 标标。function WhereY: Byte;
WriteBuf 写入一区块字元到控制台视窗。procedure WriteBuf
WriteChar 写一个字元到控制台视窗。procedure WriteChar(CH: Char);
=================================================
日期与时间函数 (Date and Time Routines)
Unit: SysUtils
========================================
Date 传回今天日期。function Date: TDateTime;
DateTimeToStr 将时间格式转为字串。function DateTimeToStr(DateTime: TDateTime):String;
DateTimeToString 将时间格式转为字串。
procedure DateTimeToString(var Result: string;const Format: string;DateTime: TDateTime);
DateToStr 将日期格式转为字串。function DateToStr(Date: TDateTime): String;
DayOfWeek 传回今天星期几。function DayOfWeek(Date: TDateTime): Integer;
DecodeDate 分解所指定的日期为年、月、日。
procedure DecodeDate(Date: TDateTime;var Year, Month, Day:Word);
DecodeTime 分解所指定的日期为时、分、秒。
procedure DecodeTime(Time: TDateTime;var Hour, Min, Sec,MSec: Word);
EncodeDate 传回将年、月、日所组合的日期格式。
function EncodeDate(Year, Month, Day: Word):TDateTime;
EncodeTime 传回将时、分、秒所组合的时间格式。
function EncodeTime(Hour, Min, Sec, MSec:Word): TDateTime;
FormatDateTime 以指定的格式传回日期时间。
function FormatDateTime(const Format: string;DateTime: TDateTime):String;
Now 传回现在的日期时间。function Now: TDateTime;
StrToDate 将字串转为日期格式。function StrToDate(const S:string): TDateTime;
StrToDateTime 将字串转为日期时间格式function StrToDateTime(const S: string): TDateTime;
StrToTime 将字串转为时间格式。function StrToTime(const S:string): TDateTime;
Time 传回现在时间。function Time: TDateTime;
TimeToStr 将时格式转为字串。function TimeToStr(Time:TDateTime): String;

========================================
次序函数 (Ordinal Routines)
Unit: System
========================================
Dec 递减一个变数。procedure Dec(var X[ ; N:Longint]);
Inc 递增一个变数procedure Inc(var X[ ; N:Longint ] );
Odd 判别式否为奇数。function Odd(X: Longint):Boolean;
Pred 传回叁数的前任者。function Pred(X);
Succ 传回叁数的後继者。function Succ(X);
========================================
指标和位址函数 (Pointer and Address Routines)
Unit: System
========================================
addr 传回指定物件的位址。function Addr(X): pointer;
Assigned 判断是否一个函数或程序是nil function Assigned(var P):Boolean;
CSeg 传回CS 程式段暂存器的内容。function CSeg: Word;
DSeg 传回DS 资料段暂存器的内容。function DSegt: Word;
Ofs 传回叁数的偏移位址。function Ofs(X): Word;
Ptr 将所指定的节段及偏移位址组合到一个指标。function Ptr(Seg, Ofs: Word):Pointer;
Seg 传回叁数的节段位址。function Seg(X): Word;
SPtr 传回SP 堆叠存器的内容。function SPtr: Word;
SSeg 传回SS 堆叠段暂存器的内容。function SSeg: Word;
========================================
字串格式函数 (String-formatting Routines)
Unit: SysUtils
========================================
FmtStr 将所列叁数依照Format 的格式组合到Result 字串传回。
procedure FmtStr(var Resut: string; const Format:string;const Args: array of const);
Format 将所列叁数依照Format 的格式组合到Pascal 格式字串传回。
fonction Format(const Format: string;const Args:array of const): string;
FormatBuf 格式化所列的叁数。
FormatBuf(var Buffer;BufLen: Cardinal;const Format;FmtLen: Cardinal;const Args: array of string ): Cardinal;
function FormatBuf(var Buffer; BufLen: Word;const Format; FmtLen:Word;Const Args: array of const):Word;
StrFmt 格式化所列的叁数。
function StrFmt(Buffer, Format: PChar;const Args: array of const):PChar;
SysUtils
StrLFmt 格式化所列叁数，并将结果指向Buffer 指标。
function StrLFmt(Buffer: PChar; MxLen: Word;Format: PChar;const Args: array of const):PChar;
SysUtils
========================================
字串处理函数(String-handling Routines :Pascal-style)
Unit: SystUtils
========================================
AnsiCompareStr 比较两个字串。function AnsiCompareStr(const S1, S2: string):Integer;
SysUtils
var
S: string;
mas: array[0..99] of string;
i, j: integer;
begin
...
for i:=1 to 98 do
for j:=i+1 to 99 do
if AnsiCompareStr( mas[i], mas[j] ) >0 then
begin
S:= mas[i]; mas[i]:= mas[j]; mas[j]:= S;
end;
end;
var

S1,S2: string;
I: Integer;

begin

S1:= '? ???? ???????? ??????';
S2:= '? ???? ???????? ??????';
I:= CompareStr(S1, S2); { I > 0, ?.?. S1 > S2 }
if I<>0 then
MessageDlg( '?????? ????????!', mtWarning, [mbOK],0);
end;

AnsiCompareText 比较两个字串且无大小写区别。
AnsiCompareText ( const S1, S2: string ): Integer;
SysUtils
AnsiCompareStr('a', 'A') <0
CompareStr('a', 'A') >0

function AnsiCompareText(const S1, S2: string):Integer;
AnsiLowerCase 将字串内容转为小写。function AnsiLowerCase(const S: string): string;
SysUtils
var
S: string;
begin
S:= 'MyFile.TXT';
S:= AnsiLowerCase(S); // S := 'myfile.txt'
MessageDlg(S, mtInformation, [mbOk], 0);
end;

AnsiUpperCase 将字串内容转为大写。function AnsiUpperCase(const S: string): string;
SysUtils
var
S: string;
begin
S:= 'c:\windows';
S:= AnsiUpperCase (S); { S := 'C:\WINDOWS' }
MessageDlg(S, mtInformation, [mbOk], 0);
end;

AppendStr 将所给字串连接到Dest 字串後面。procedure AppendStr(var Dest: string; const S:string);
AssignStr 配置记忆体空间给字串。procedure AppendStr(var P: PString; const S:String);
CompareStr 比较两个字串。function CompareStr(const S1,S2: string):Integer;
CompareText 比较两个字串且无大小写区别。function CompareText(const S1, S2: String):Integer;
Concat 连结所列字串。function Concat(s1 [, s2,… , sn]: String):String;
Copy 传回字串的部份字串内容。function Copy(S: String; Index, Count:Integer): String;
Delete 删除所给字串内的子字串。procedure Delete(var S: String; Index,Count:Integer);
DisposeStr 释回字串占用的空间。procedure DisposeStr(P: PString);
FmtLoadStr 从程式的资源字串表中载入一个字串。
FmtLoadStr(Ident: Integer;const Args: array of string ): string;
SysUtils

function FmtLoadStr(Ident: Word;const Args: array of const): string;
Insert 在一个字串内插入一个子字串
procedure Insert(Source: String; var S: String;Index: Integer);
Insert (Source: string;var S: string;Index: Integer );
System
var
S: string;
begin
S:= '??????? ?????? ??????????.';
Insert( '!', S, 8); { S := '???????! ?????? ??????????.'}
MessageDlg( S, mtWarning, [mbOK],0);
end;

IntToHex 将一个整数转为十六进位。
function IntToHex(Value: Longint; Digits:Integer): string;
IntToStr 将数字转成字中格式。function IntToStr(Value: Longint): string;
IsValidIdent 判别字串内容是否为正确的识别字。function IsValidIdent(const Ident: string):Boolean;
Length 传回字串的长度。function Length(S: String): Integer;
LoadStr 从应用程式的可执行档中载入一个字串资源。
function LoadStr(Ident: Word): string;
SysUtils
LowerCase 将字串转成小写。function LowerCase(const S: string): string;
NewStr 从堆积配置一个字串空间。function NewStr(const S: string): PString;
Pos 传回子字串在字串中的位置。function Pos(Substr: String; S: String):
Str 将数值转为字串。procedure Str(X [: Width [: Decimals ]];var S);
StrToInt 将字串转为整数值。function StrToInt(const S: string): Longint;
StrToIntDef 将字串转整数值或预设值。function StrToIntDef(const S: string; Default:Longint): Longint;
Uppercase 将字串转成大写。function UpperCase(const S: string): string;
SysUtils
var
S: string;
begin
S:= UpperCase( '???????? Intel'); { S := '???????? INTEL'}
end;
val 将字串内容转为数值描述。procedure Val(S; var V; var Code: Integer);
System { $R+ } { $R- }
var
I, Code: Integer;
begin
Val( Edit1.Text, I, Code); { ??????????????? ????? ????????? ? ???? Edit1.Text ? ???????? ????? }
if Code<>0 then { ????????? ??????? ?????? ? ????????? ?????
MessageDlg( '?????? ???????? ? ???????: '+ IntToStr(Code), mtWarning,[mbOk], 0)
else { ??????? ??????? ?????}
Canvas.TextOut( 20, 20, IntToStr(Sqr(I)));
end;

========================================
转换函数(Transfer Routines)
Unit: System
========================================
Chr 传回ASCII 码所对应的字元。function Chr(X: Byte): Char;
Delphi 源码任务 ( http://home.kimo.com.tw/bruce0211/ ) 打字整理15
High 传回叁数在范围内的最高值。function High(X);
Low 传回叁数在范围内的最低值。function Low(X);
Ord 传回一个有序型态所对应的顺序值。function Ord(X): Longint;
Round 将一个实数值四舍五入而传回整数值。function Round(X: Real):Longint;
Trunc 将一个实数值去尾而传回整数值。function Trunc(X: Real):Longint;
========================================
未定型态档案函数(Untyped-file Routines)
Unit: System
========================================
BlockRead 从档案读入一个或数个记录到Buf 变数。
procedure BlockRead(var F: File; var Buf;Count: Word [; var Result:Word]);
BlockWrite 从一变数写入一个或数个记录。
procedure BlockWrite(var f: File; var Buf;Count: Word [; var Result:Word]);
======================================================
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
WinAPI 控件与消息函数
----------------
AdjustWindowRect
AdjustWindowRectEx
给定一种窗囗样式，计算获得目标客户区矩形所需的窗囗大小
======================================================
VB声明
Declare Function AdjustWindowRect Lib "user32" Alias "AdjustWindowRect" (lpRect As RECT, ByVal dwStyle As Long, ByVal bMenu As Long) As Long
Declare Function AdjustWindowRectEx Lib "user32" Alias "AdjustWindowRectEx" (lpRect As RECT, ByVal dsStyle As Long, ByVal bMenu As Long, ByVal dwEsStyle As Long) As Long
说明
在给定一种窗囗样式的前提下，计算获得目标客户区矩形所需的窗囗大小
返回值
Long，如执行成功，则返回非零值；如失败，返回零值。会设置GetLastError

叁数表
叁数 类型及说明
lpRect RECT，最初包含要求的客户区。由函数设为目标窗囗矩形大小
dwStyle Long，窗囗样式
bMenu Long，如窗囗有菜单，则设为TRUE（非零）
dwEsStyle Long，扩展窗囗样式（只适用於AdjustWindowRectEx）
注解
在调用本函数前，先用GetWindowLong取得一个窗体的样式。如菜单占用两行以上的空间，则函数不能正确计算大小。如程序使用了多行标题，则应使用GetSystemMetrics
======================================================
AnyPopup
判断屏幕上是否存在任何弹出式窗囗
-----------------------------------------
VB声明
Declare Function AnyPopup Lib "user32" Alias "AnyPopup" () As Long
说明
判断屏幕上是否存在任何弹出式窗囗
返回值
Long，如存在弹出式菜单，则返回TRUE（非零）
注解
对该函数来说，弹出式菜单包含所有可见的包容顶级窗囗，无论弹出式还是重叠窗囗
=====================================================
ArrangeIconicWindows 排列一个父窗囗的最小化子窗囗
VB声明
Declare Function ArrangeIconicWindows Lib "user32" Alias "ArrangeIconicWindows" (ByVal hwnd As Long) As Long
说明
排列一个父窗囗的最小化子窗囗（在vb里使用：用於在桌面排列图标，用GetDesktopWindow
函数获得桌面窗囗的一个句柄）
返回值
Long，图标行的高度；如失败，则返回零。会设置GetLastError
叁数表
叁数 类型及说明
hwnd Long，父窗囗的句柄
注解

也可将该函数用於包含了图标化子窗囗的的定制控件
=======================================================
AttachThreadInput 连接线程输入函数
BeginDeferWindowPos 启动构建一系列新窗囗位置的过程
BringWindowToTop 将指定的窗囗带至窗囗列表顶部
CascadeWindows 以层叠方式排列窗囗
ChildWindowFromPoint 返回父窗囗中包含了指定点的第一个子窗囗的句柄

ClientToScreen 判断窗囗内以客户区坐标表示的一个点的屏幕坐标
CloseWindow 最小化指定的窗囗
CopyRect 矩形内容复制
DeferWindowPos 该函数为特定的窗囗指定一个新窗囗位置
DestroyWindow 清除指定的窗囗以及它的所有子窗囗
DrawAnimatedRects 描绘一系列动态矩形
EnableWindow 指定的窗囗里允许或禁止所有鼠标及键盘输入
EndDeferWindowPos 同时更新DeferWindowPos调用时指定的所有窗囗的位置及状态
EnumChildWindows 为指定的父窗囗枚举子窗囗

EnumThreadWindows 枚举与指定任务相关的窗囗
EnumWindows 枚举窗囗列表中的所有父窗囗
EqualRect 判断两个矩形结构是否相同
FindWindow 寻找窗囗列表中第一个符合指定条件的顶级窗囗
FindWindowEx 在窗囗列表中寻找与指定条件相符的第一个子窗囗
=============================
FlashWindow 闪烁显示指定窗囗
-----------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
Form1.BringToFront;
Timer1.Interval:=GetCaretBlinkTime;
Timer1.Enabled:=Not Timer1.Enabled;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
FlashWindow(Form2.Handle,TRUE);
end;
==============================
GetActiveWindow 获得活动窗囗的句柄
GetCapture 获得一个窗囗的句柄，这个窗囗位於当前输入线程，且拥有鼠标捕获（鼠标活动由它接收）
GetClassInfo 取得WNDCLASS结构（或WNDCLASSEX结构）的一个副本，结构中包含了与指定类有关的信息

GetClassLong 取得窗囗类的一个Long变量条目
GetClassName 为指定的窗囗取得类名
GetClassWord 为窗囗类取得一个整数变量
GetClientRect 返回指定窗囗客户区矩形的大小
GetDesktopWindow 获得代表整个屏幕的一个窗囗（桌面窗囗）句柄
GetFocus 获得拥有输入焦点的窗囗的句柄
GetForegroundWindow 获得前台窗囗的句柄
GetLastActivePopup 获得在一个给定父窗囗中最近激活过的弹出式窗囗的句柄
GetLastError 针对之前调用的api函数，用这个函数取得扩展错误信息

GetParent 判断指定窗囗的父窗囗
GetTopWindow 搜索内部窗囗列表，寻找隶属於指定窗囗的头一个窗囗的句柄
GetUpdateRect 获得一个矩形，它描叙了指定窗囗中需要更新的那一部分
=================================================
GetWindow
获得一个窗囗的句柄，该窗囗与某源窗囗有特定的关系
------------------------------------------------
procedure TForm1.Timer1Timer(Sender: TObject);
var
s:array [0..29999]of char;
H:integer;
begin
h:=Getwindow(handle,GW_OWNER );
//Getwindow取一个窗囗的句柄，该窗囗与某源窗囗有特定的关系
getwindowtext(H,s,300);
//getwindowtext取一个窗体标题（caption）文字，或控件内容
Edit1.text:=inttostr(H);
Label1.caption := S;
end;
================================================
GetWindowContextHelpId 取得与窗囗关联在一起的帮助场景ID
GetWindowLong 从指定窗囗的结构中取得信息
GetWindowPlacement 获得指定窗囗的状态及位置信息
GetWindowRect 获得整个窗囗的范围矩形，窗囗的边框、标题栏、滚动条及菜单等都在这个矩形内
================================================
GetWindowText
取得一个窗体的标题（caption）文字，或者一个控件的内容
--------------------------
procedure TForm1.Timer1Timer(Sender: TObject);
var
s:array [0..29999]of char;
H:integer;
begin
h:=Getwindow(handle,GW_OWNER );
//Getwindow取一个窗囗的句柄，该窗囗与某源窗囗有特定的关系
getwindowtext(H,s,300);
//getwindowtext取一个窗体标题（caption）文字，或控件内容
Edit1.text:=inttostr(H);
Label1.caption := S;
end;
============================
GetWindowTextLength 调查窗囗标题文字或控件内容的长短
GetWindowWord 获得指定窗囗结构的信息
InflateRect 增大或减小一个矩形的大小
IntersectRect 这个函数在lpDestRect里载入一个矩形，它是lpSrc1Rect与lpSrc2Rect两个矩形的交集
InvalidateRect 屏蔽一个窗囗客户区的全部或部分区域
IsChild 判断一个窗囗是否为另一窗囗的子或隶属窗囗

IsIconic 判断窗囗是否已最小化
IsRectEmpty 判断一个矩形是否为空
IsWindow 判断一个窗囗句柄是否有效
IsWindowEnabled 判断窗囗是否处於活动状态
IsWindowUnicode 判断一个窗囗是否为Unicode窗囗。这意味着窗囗为所有基於文本的消息都接收Unicode文字
IsWindowVisible 判断窗囗是否可见
IsZoomed 判断窗囗是否最大化
LockWindowUpdate 锁定指定窗囗，禁止它更新
MapWindowPoints 将一个窗囗客户区坐标的点转换到另一窗囗的客户区坐标系统

MoveWindow 改变指定窗囗的位置和大小
OffsetRect 通过应用一个指定的偏移，从而让矩形移动起来
OpenIcon 恢复一个最小化的程序，并将其激活
PtInRect 判断指定的点是否位於矩形内部
RedrawWindow 重画全部或部分窗囗
ReleaseCapture 为当前的应用程序释放鼠标捕获
ScreenToClient 判断屏幕上一个指定点的客户区坐标
ScrollWindow 滚动窗囗客户区的全部或一部分
ScrollWindowEx 根据附加的选项，滚动窗囗客户区的全部或部分

SetActiveWindow 激活指定的窗囗
SetCapture 将鼠标捕获设置到指定的窗囗
SetClassLong 为窗囗类设置一个Long变量条目
SetClassWord 为窗囗类设置一个条目
SetFocusAPI 将输入焦点设到指定的窗囗。如有必要，会激活窗囗
SetForegroundWindow 将窗囗设为系统的前台窗囗
SetParent 指定一个窗囗的新父
SetRect 设置指定矩形的内容
SetRectEmpty 将矩形设为一个空矩形
SetWindowContextHelpId 为指定的窗囗设置帮助场景（上下文）ID

SetWindowLong 在窗囗结构中为指定的窗囗设置信息
SetWindowPlacement 设置窗囗状态和位置信息

SetWindowPos 为窗囗指定一个新位置和状态
SetWindowText 设置窗囗的标题文字或控件的内容
SetWindowWord 在窗囗结构中为指定的窗囗设置信息
ShowOwnedPopups 显示或隐藏由指定窗囗所有的全部弹出式窗囗
ShowWindow 控制窗囗的可见性
ShowWindowAsync 与ShowWindow相似
SubtractRect 装载矩形lprcDst，它是在矩形lprcSrc1中减去lprcSrc2得到的结果

TileWindows 以平铺顺序排列窗囗
UnionRect 装载一个lpDestRect目标矩形，它是lpSrc1Rect和lpSrc2Rect联合起来的结果
UpdateWindow 强制立即更新窗囗
ValidateRect 校验窗囗的全部或部分客户区
WindowFromPoint 返回包含了指定点的窗囗的句柄。忽略屏蔽、隐藏以及透明窗囗

顶你！     我一定要好好的学习     你加油.......                             

晕还是不大懂啊   用delphi7   要加什么控件   都不知道   也就是一个例子写代码对应控件是什么也要学出来   来帮帮最菜的菜鸟啊

完了，是很多都看不懂

cn譬如是你吗？

有个软件叫《delphi编程助手》大家找找，好像里面也有楼主的东西，不过欣赏楼主啊，辛苦了，在下佩服，

好多东西啊~~我要疯了！！

辛苦了。谢谢

灌水

顶!

现在不懂,但楼主太用功了.支持

谢谢楼主，学习消化中！

先问大家一个问题,这个编程主要是干吗的呢?
好复杂啊,很难懂,如何快速的入门呢?
还请大哥大姐比吝赐教呀!!!!!