_winapi

WinAPI: 输入光标相关的函数[3]

本例测试修改光标的形色,效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,ExtCtrls; type TForm1=class(TForm) RadioGroup1:TRadioGr
涂孟超·2014-09-26 15:00

WinAPI: FlashWindow - 闪烁窗口

//声明: FlashWindow( hWnd:HWND;{窗口句柄} bInvert:BOOL{设为True才会闪烁} ):BOOL; //举例: begin FlashWindow(Handle,True); end;
涂孟超·2014-09-26 15:00

WinAPI: GetTickCount - 获取系统已启动的时间

//声明: GetTickCount:DWORD;{无参数;返回系统已启动的时间(毫秒)} //举例: var t:DWORD; begin t:=GetTickCount; ShowMessage(IntToStr(t)); end;
涂孟超·2014-09-26 15:00

WinAPI: MessageBeep - 播放一个系统声音

//声明: MessageBeep( uType:UINT{参数是个常数;根据不同的常数发出不同的声音,也就是调用了不同的wav} ):BOOL; //参数uType可选值: MB_OK=0; MB_ICONHAND=16; MB_ICONQUESTION=32; MB_ICONEXCLAMATION=48; MB_ICONASTERISK=64;
涂孟超·2014-09-26 15:00

WinAPI: waveInStop - 停止输入

提示:如果未启动则调用无效,但也返回0;缓冲区会被返回,TWaveHdr结构中的dwBytesRecorded将包含返回的实际数据的长度.//声明: waveInStop( hWaveIn:HWAVEIN{设备句柄} ):MMRESULT;{成功返回0;可能的错误值见下:} MMSYSERR_INVALHANDLE=5;{设备句柄无效} MMSYSERR_HANDLEBUSY=12;
涂孟超·2014-09-26 15:00

WinAPI: LoadBitmap - 从资源中载入位图

//声明: LoadBitmap( hInstance:HINST;{EXE或DLL的句柄} lpBitmapName:PChar{资源标识符} ):HBITMAP;{返回位图句柄} 这里有示例
涂孟超·2014-09-26 15:00

WinAPI: Rectangle - 绘制矩形

//声明: Rectangle( DC:HDC;{设备环境句柄} X1,Y1,X2,Y2:Integer{两个点的坐标} ):BOOL; //举例: procedureTForm1.FormPaint(Sender:TObject); const x1=20; y1=20; x2=200; y2=100; begin Rectangle(Can
涂孟超·2014-09-26 15:00

WinAPI: waveInGetNumDevs - 获取波形输入设备的数目

//声明: waveInGetNumDevs:UINT;{无参数;返回波形输入设备的数目} //举例:
涂孟超·2014-09-26 15:00

WinAPI: StrokePath - 描绘路径轮廓

本例效果图:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormPaint(Sender:TObject); end; var For
涂孟超·2014-09-26 15:00

WinAPI: midiOutGetDevCaps - 查询输出设备性能

//声明: midiOutGetDevCaps( uDeviceID:UINT;{设备ID} lpCaps:PMidiOutCaps;{TMidiOutCaps结构的指针} uSize:UINT{TMidiOutCaps结构的大小} ):MMRESULT;{成功返回0;可能的错误值见下:} MMSYSERR_BADDEVICEID=2;{设备ID超界} MMSYSERR_NODR
涂孟超·2014-09-26 15:00

WinAPI: RemoveDirectory - 删除空目录

//声明: RemoveDirectory( lpPathName:PAnsiChar{目录名} ):BOOL; //举例: var Dir:string; begin Dir:='c:\temp\Test'; ifRemoveDirectory(PChar(Dir))then ShowMessage(Dir+'已被删除') else ShowM
涂孟超·2014-09-26 15:00

WinAPI: GetSystemInfo - 获取系统信息

//声明: GetSystemInfo( varlpSystemInfo:TSystemInfo{} ); //TSystemInfo是_SYSTEM_INFO结构的重定义: _SYSTEM_INFO=record caseIntegerof 0:( dwOemId:DWORD);{返回计算机标识符,已废弃} 1:( wProcessorArchitecture:Word;
涂孟超·2014-09-26 15:00

WinAPI 字符及字符串函数(6): IsCharAlphaNumeric - 是否是个文字(字母或数字)

unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) Button1:TButton; Button2:TButton; Button3:TButto
涂孟超·2014-09-26 15:00

WinAPI: PolyBezier - 绘制贝塞尔线

//声明: PolyBezier( DC:HDC;{设备环境句柄} constPoints;{点数组} Count:DWORD{数组元素个数} ):BOOL; //一条贝塞尔线最少要有4个点 procedureTForm1.FormPaint(Sender:TObject); var ps:array[0..3]ofTPoint; begin ps
涂孟超·2014-09-26 15:00

WinAPI: CreatePenIndirect - 根据笔的参数结构建立画笔

//声明: CreatePenIndirect( constLogPen:TLogPen{笔结构} ):HPEN;{返回笔句柄} //TLogPen是tagLOGPEN结构的重定义: tagLOGPEN=packedrecord lopnStyle:UINT;{笔样式} lopnWidth:TPoint;{笔宽;只需要TPoint.X} lopnColor:COLORREF;{
涂孟超·2014-09-26 15:00

WinAPI: wvsprintf 与 wsprintf - Windows 的格式化输出函数

wvsprintf函数声明:wvsprintf( Output:PChar;{用于返回的缓冲区} Format:PChar;{格式;类似与Format的格式,应该是和C语言的printf的格式相同} arglist:va_list{数组指针} ):Integer;{返回到缓冲区的实际字符串的长度} wvsprintf函数举例://例一: var buf:PChar
涂孟超·2014-09-26 15:00

WinApi: GetParent、SetParent、MoveWindow - 获取、指定父窗口和移动窗口

提示:SetParent应该Windows.SetParent,因为TForm的父类有同名方法.//声明: {获取父窗口句柄} GetParent(hWnd:HWND):HWND; {指定父窗口} SetParent( hWndChild:HWND;{子句柄} hWndNewParent:HWND{父句柄} ):HWND;{成功返回原父窗口句柄;失败返回0} {移动窗口
涂孟超·2014-09-26 15:00

WinAPI: BeginPath、EndPath、StrokePath、FillPath、StrokeAndFillPath

BeginPath{路径开始} EndPath{路径结束} StrokePath{绘制路径} FillPath{填充路径} StrokeAndFillPath{绘制并填充路径} //在路径中可以使用的图形命令有: AngleArc Arc ArcTo Chord CloseFigure Ellipse ExtTextOut LineTo MoveToEx Pie
涂孟超·2014-09-26 15:00

WinAPI: 快捷键函数汇总

functionLoadAccelerators( hInstance:HINST;{} lpTableName:PChar{} ):HACCEL;{} functionCreateAcceleratorTable( varAccel;{} Count:Integer{} ):HACCEL;{} functionCopyAcc
涂孟超·2014-09-26 15:00

WinAPI: GetWindowTextLength - 获取窗口标题长度

//声明: GetWindowTextLength( hWnd:HWND{窗口句柄} ):Integer;{返回窗口标题长度} //举例: var i:Integer; begin i:=GetWindowTextLength(Self.Handle); ShowMessage(IntToStr(i)); end;
涂孟超·2014-09-26 15:00

WinAPI: FlattenPath、WidenPath

不管什么曲线命令,到来路径中都会变成Bezier线;也就是说路径中只有直线和Bezier线.FlattenPath和WidenPath都能够把路径中的Bezier线转换为近似的直线;不同的是:用WidenPath转换后貌似加宽了线,其实它是转换成了一个包围路径的新路径(类似区域).本例效果图:代码文件:unitUnit1; interface uses Windows,Message
涂孟超·2014-09-26 15:00

WinAPI: GetTextColor - 获取设备环境的文本颜色

//声明: GetTextColor( DC:HDC{设备环境句柄} ):COLORREF;{返回一个Cardinal类型的颜色值} //举例: var c:Cardinal; begin c:=GetTextColor(Canvas.Handle); ShowMessage(IntToStr(c)); end;
涂孟超·2014-09-26 15:00

WinAPI: CopyFile - 复制文件

//声明: CopyFile( lpExistingFileName:PChar;{源文件} lpNewFileName:PChar;{目标文件} bFailIfExists:BOOL{如果目标文件存在,True:失败;False:覆盖} ):BOOL; //例1: begin CopyFile('c:\BOOTLOG.TXT','c:\temp\BOO
涂孟超·2014-09-26 15:00

WinAPI: LoadIcon - 从资源中载入图标

//声明: LoadIcon( hInstance:HINST;{EXE或DLL的句柄,0表示载入系统资源} lpIconName:PChar{资源标识符} ):HICON;{返回图标句柄} 这里有示例//调用系统图标的例子: unitUnit1; interface uses Windows,Messages,SysUtils,Variants,
涂孟超·2014-09-26 15:00

WinAPI: PolylineTo - 绘制一组连续线段(更新当前位置)

//声明: PolylineTo( DC:HDC;{设备环境句柄} varPoints;{点数组} Count:Integer{数组元素个数} ):BOOL; //如果不给PolylineTo指定起点,将默认0点位起点 procedureTForm1.FormPaint(Sender:TObject); var ps:array[0..5]ofTPoi
涂孟超·2014-09-26 15:00

WinAPI: 钩子回调函数之 JournalRecordProc

JournalRecordProc( nCode:Integer;{} wParam:WPARAM;{} lParam:LPARAM{} ):LRESULT;{} //待续...
涂孟超·2014-09-26 15:00

WinAPI: GetModuleHandle - 获取一个模块(exe 或 dll)的句柄

定义:GetModuleHandle( lpModuleName:PChar{模块名;只能是映射到当前进程的模块} ):HMODULE;{返回模块句柄;0表示失败} 举例://获取当前模块的句柄 var s:string; h:Cardinal; begin {先取得模块名} s:=Application.ExeName; s:=ExtractFileNam
涂孟超·2014-09-26 15:00

WinAPI: 钩子回调函数之 HardwareProc

HardwareProc( nCode:Integer;{} wParam:WPARAM;{} lParam:LPARAM{} ):LRESULT;{} //待续...
涂孟超·2014-09-26 15:00

WinAPI: LoadString - 从资源中载入字符串

//声明: LoadString( hInstance:HINST;{EXE或DLL的句柄} uID:UINT;{资源ID} lpBuffer:PChar;{缓冲区} nBufferMax:Integer{缓冲区大小} ):Integer;{返回字串实际长度} //假如有这样一个字符串资源: StringTable begin 0"String_On
涂孟超·2014-09-26 15:00

终于, Delphi XE2 携带 GDI+ 库了

使用了较早的http://www.progdigy.comusesWinapi.GDIPAPI,Winapi.GDIPOBJ{,Winapi.GDIPUTIL}; procedureTForm1.
涂孟超·2014-09-26 15:00

WinAPI: OffsetRect - 移动矩形

本例效果图:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) Button1:TButton; Button2:TButton; Button3:
涂孟超·2014-09-26 15:00

WinAPI: SetBkMode - 设置背景模式

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,ExtCtrls; type TForm1=class(TForm) RadioGroup1:TRadioGroup; proc
涂孟超·2014-09-26 15:00

WinAPI: waveInGetErrorText - 根据错误号得到错误描述

提示:错误文本的长度一般不超过MAXERRORLENGTH=128;如果缓冲区太小,文本会被截断.//声明: waveInGetErrorText( mmrError:MMRESULT;{错误号} lpText:PChar;{缓冲区} uSize:UINT{缓冲区大小} ):MMRESULT;{成功返回0;失败再返回错误号,可能的错误是:} MMSYSERR_BADERRNUM=9
涂孟超·2014-09-26 15:00

WinAPI: SetWindowPos - 改变窗口的位置与状态

//声明: SetWindowPos( hWnd:HWND;{窗口句柄} hWndInsertAfter:HWND;{窗口的Z顺序} X,Y:Integer;{位置} cx,cy:Integer;{大小} uFlags:UINT{选项} ):BOOL; //hWndInsertAfter参数可选值: HWND_TOP=0;{在前面} HWND_BOTTOM=1;{在后面}
涂孟超·2014-09-26 15:00

WinAPI: GetModuleFileName、GetModuleHandle

unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) Button1:TButton; procedureFormCreate(Sender:TObje
涂孟超·2014-09-26 15:00

WinAPI 字符及字符串函数(11): lstrcpyn - 复制字符串, 同时指定要复制的长度

unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) Button1:TButton; procedureButton1Click(Sender:TOb
涂孟超·2014-09-26 15:00

WinAPI 字符及字符串函数(9): lstrcat - 合并字符串

unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) Button1:TButton; Button2:TButton; Button3:TButto
涂孟超·2014-09-26 15:00

WinAPI: CreateHatchBrush - 建立阴影画刷

//声明: CreateHatchBrush( p1:Integer;{阴影样式} p2:COLORREF{颜色值} ):HBRUSH;{返回画刷句柄} //p1参数可选值: HS_HORIZONTAL=0; HS_VERTICAL=1; HS_FDIAGONAL=2; HS_BDIAGONAL=3; HS_CROSS=4; HS_DIAGCROSS=5;
涂孟超·2014-09-26 15:00

WinAPI: GetPixel - 获取设备环境中指定位置的颜色

//声明: GetPixel( DC:HDC;{设备环境句柄} X,Y:Integer{坐标} ):COLORREF;{返回颜色值}
涂孟超·2014-09-26 15:00

WinAPI: GetTextAlign - 获取绘图环境的文本对齐方式

//声明: GetTextAlign( DC:HDC;{设备环境句柄} ):UINT;{返回对齐选项值;如果返回GDI_ERROR表示设置失败} //如果调用成功则返回下面常数值之一或它们的组合: TA_NOUPDATECP=0;{每一次文本输出后,不更新当前位置} TA_UPDATECP=1;{每一次文本输出后,更新当前位置} TA_LEFT=0;{起始于文本外接矩形左边}
涂孟超·2014-09-26 15:00

WinAPI: waveOutGetDevCaps - 查询输出设备的性能

//声明: waveOutGetDevCaps( uDeviceID:UINT;{输出设备ID} lpCaps:PWaveOutCaps;{TWaveOutCaps结构的指针,用于接受设备信息} uSize:UINT):MMRESULT;{TWaveOutCaps结构大小} ):MMRESULT;{成功返回0;可能的错误值见下:} MMSYSERR_BADDEVICEID=2;{设
涂孟超·2014-09-26 15:00

WinAPI 字符及字符串函数(4): CharUpperBuff - 把缓冲区中指定数目的字符转大写

unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) Button1:TButton; Button2:TButton; Button3:TButto
涂孟超·2014-09-26 15:00

WinAPI: DrawTextEx - 多功能文本绘制

//声明: DrawTextEx( DC:HDC;{设备句柄} lpchText:PChar;{文本} cchText:Integer;{要绘制的字符个数;-1表示全部} varp4:TRect;{矩形结构} dwDTFormat:UINT;{选项} DTParams:PDrawTextParams{附加参数,指向一个DRAWTEXTPARAMS结构} ):Integer;{返回文
涂孟超·2014-09-26 15:00

WinAPI 字符及字符串函数(13): lstrcmp、lstrcmpi - 对比串

lstrcmp区分大小写;lstrcmpi不区分大小写.返回值:-1、0、1,其中0表示相同.unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) But
涂孟超·2014-09-26 15:00

WinAPI: GetDiskFreeSpace - 获取磁盘组织与容量信息

//声明: GetDiskFreeSpace( lpRootPathName:PChar;{磁盘根路径} varlpSectorsPerCluster:DWORD;{一个簇内的扇区数} varlpBytesPerSector:DWORD;{一个扇区内的字节数} varlpNumberOfFreeClusters:DWORD;{剩余簇数} varlpTotalNumberOfCluste
涂孟超·2014-09-26 15:00

WinAPI: MoveToEx 与 LineTo - 绘制直线

//声明: MoveToEx( DC:HDC;{设备环境句柄} p2,p3:Integer;{坐标} p4:PPoint{用于保存p2、p3值的TPoint结构的指针} ):BOOL; LineTo( DC:HDC;{设备环境句柄} X,Y:Integer{直线终点坐标} ):BOOL; //举例: unitUnit1; interfac
涂孟超·2014-09-26 15:00

WinAPI: SetWindowExtEx、SetViewportExtEx

相似函数:ScaleWindowExtEx、ScaleViewportExtEx本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,ComCtrls,StdCtrls; type TForm1=clas
涂孟超·2014-09-26 15:00

WinAPI: waveOutSetPitch - 设置输出设备的音调设置(音高的倍数值)

提示:参数dwPitch虽然是4字节的正整数,但表示的是个小数;两个高位表示整数部分,两个低位表示小数部分;$8000表示一半,$4000表示四分之一;譬如:$00010000表示1.0,说明音高没变;$000F8000,表示15.5倍;修改音高不会改变播放速度、采样速度和播放时间,但不是所有设备都支持.//声明: waveOutSetPitch( hWaveOut:HWAVEOUT;{设备句
涂孟超·2014-09-26 15:00

WinAPI: EmptyClipboard - 清空剪切板

声明:EmptyClipboard:BOOL;{} 举例:begin OpenClipboard(0); EmptyClipboard; CloseClipboard; end;
涂孟超·2014-09-26 15:00

WinAPI: waveOutGetErrorText - 根据错误号得到错误描述

提示:错误文本的长度一般不超过MAXERRORLENGTH=128;如果缓冲区太小,文本会被截断.//声明: waveOutGetErrorText( mmrError:MMRESULT;{错误号} lpText:PChar;{缓冲区} uSize:UINT{缓冲区大小} ):MMRESULT;{成功返回0;可能的错误值见下:} MMSYSERR_BADERRNUM=9;{错误号超
涂孟超·2014-09-26 15:00
上一页 45 46 47 48 49 50 51 52 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他