_winapi

WinAPI: RectInRegion - 判断矩形是否位于区域中

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

WinAPI: GetDiskFreeSpaceEx - 获取磁盘容量信息

//声明: GetDiskFreeSpaceEx( lpDirectoryName:PChar;{磁盘根路径} varlpFreeBytesAvailableToCaller:TLargeInteger;{可用空间} varlpTotalNumberOfBytes:TLargeInteger;{总空间} TotalFree:PLargeInteger{剩余空间} ):BOOL;
涂孟超·2014-09-26 15:00

WinAPI: waveInGetPosition - 获取当前输入设备的输入位置

//声明: waveInGetPosition( hWaveIn:HWAVEIN;{设备句柄} lpInfo:PMMTime;{TMMTime结构的指针} uSize:UINT{TMMTime结构大小} ):MMRESULT;{成功返回0;可能的错误值见下:} MMSYSERR_INVALHANDLE=5;{设备句柄无效} //TMMTime是mmtime_tag结构的重定义
涂孟超·2014-09-26 15:00

WinAPI 字符及字符串函数(12): lstrlen - 串长度

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

WinAPI: waveInReset - 重置输入

提示:函数会终止输入,位置清0;放弃未处理的缓冲区并返回给程序;TWaveHdr结构中的dwBytesRecorded将包含实际数据的长度.//声明: waveInReset( hWaveIn:HWAVEIN{设备句柄} ):MMRESULT;{成功返回0;可能的错误值见下:} MMSYSERR_INVALHANDLE=5;{设备句柄无效} MMSYSERR_HANDLEBUSY=1
涂孟超·2014-09-26 15:00

WinAPI: midiInClose - 关闭输入设备

提示:函数成功后,句柄不再有效;如果midiInAddBuffer发送的缓冲区没有返回到程序,函数会失败;调用midiInReset可将所有挂起的缓冲区标记为已执行.//声明: midiInClose( hMidiIn:HMIDIIN{设备句柄} ):MMRESULT;{成功返回0;可能的错误值见下:} MMSYSERR_INVALHANDLE=5;{设备句柄无效} MIDIERR_
涂孟超·2014-09-26 15:00

WinAPI: CreateDirectory - 建立文件夹

//声明: CreateDirectory( lpPathName:PChar;{目录名} lpSecurityAttributes:PSecurityAttributes{TSecurityAttributes结构的指针} ):BOOL; //TSecurityAttributes是_SECURITY_ATTRIBUTES结构的重定义 _SECURITY_ATTRIBUTES=r
涂孟超·2014-09-26 15:00

WinAPI: GetVersionEx - 获取系统版本详细信息

//声明: GetVersionEx( varlpVersionInformation:TOSVersionInfo{参数是一个结构} ):BOOL; //结构TOSVersionInfo是_OSVERSIONINFOA的重命名 _OSVERSIONINFOA=record dwOSVersionInfoSize:DWORD;{结构大小} dwMajorVersion:DWORD
涂孟超·2014-09-26 15:00

WinAPI: GetCharWidth 和 GetCharWidth32 - 获取字符宽度

//声明: GetCharWidth( DC:HDC;{设备环境句柄} FirstChar,LastChar:UINT;{范围内的第一个和最后一个字符值} constWidths{接受每个字符宽度值的整型数组} ):BOOL; GetCharWidth32( DC:HDC;{设备环境句柄} FirstChar,LastChar:UINT;{范围内的第一个和最后一个字符值} c
涂孟超·2014-09-26 15:00

WinAPI: 钩子回调函数之 JournalPlaybackProc

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

WinAPI: 钩子回调函数之 CallWndProc

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

WinAPI: GetUserName - 获取当前用户名

//声明: GetUserName( lpBuffer:PChar;{缓冲区} varnSize:DWORD{缓冲区大小} ):BOOL; //举例: var arr:array[0..254]ofChar; d:DWORD; begin d:=SizeOf(arr); GetUserName(arr,d); ShowMessage(arr);{
涂孟超·2014-09-26 15:00

WinAPI: SetLayeredWindowAttributes - 设置窗口的透明

这是来宾Dolby在http://www.cnblogs.com/del/archive/2008/03/08/1081295.html#1096814询问的问题.//声明: SetLayeredWindowAttributes( Hwnd:THandle;{窗口句柄} crKey:COLORREF;{透明色} bAlpha:Byte;{Alpha值} dwFlags:DWORD{LWA
涂孟超·2014-09-26 15:00

WinAPI: waveInPrepareHeader - 为波形输入准备一个缓冲区

提示:必须调用GlobalAlloc给TWaveHdr和其中的lpData指向的缓冲区分配内存(使用GMEM_MOVEABLE、GMEM_SHARE),并用GlobalLock锁定.//声明: waveInPrepareHeader( hWaveIn:HWAVEIN;{设备句柄} lpWaveInHdr:PWaveHdr;{TWaveHdr结构的指针} uSize:UINT{TWaveHd
涂孟超·2014-09-26 15:00

WinAPI: FindWindow、FindWindowEx - 查找窗口

FindWindow( lpClassName,{窗口的类名} lpWindowName:PChar{窗口的标题} ):HWND;{返回窗口的句柄;失败返回0} //FindWindowEx比FindWindow多出两个句柄参数: FindWindowEx( Parent:HWND;{要查找子窗口的父窗口句柄} Child:HWND;{子窗口句柄} ClassName:PCha
涂孟超·2014-09-26 15:00

WinAPI: GetDoubleClickTime、SetDoubleClickTime - 获取与设置鼠标双击间隔时间

//声明 GetDoubleClickTime:UINT;{无参数;返回鼠标双击间隔时间,单位是毫秒} SetDoubleClickTime( Interval:UINT{依毫秒为单位的时间数} ):BOOL; //举例: var c:Cardinal; begin c:=GetDoubleClickTime; ShowMessage(IntTo
涂孟超·2014-09-26 15:00

WinAPI: midiOutMessage - 向 MIDI 输出设备发送一条消息

//声明: midiOutMessage( hMidiOut:HMIDIOUT;{设备句柄} uMessage:UINT;{消息} dw1:DWORD{消息参数} dw2:DWORD{消息参数} ):MMRESULT;{函数成功返回发送的消息} //举例:
涂孟超·2014-09-26 15:00

WinAPI: waveOutGetPitch - 获取输出设备当前的音调设置(音高的倍数值)

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

WinAPI: Polyline - 绘制一组连续线段

//声明: Polyline( DC:HDC;{设备环境句柄} varPoints;{点数组} Count:Integer{数组元素个数} ):BOOL; {Polyline与Polygon的参数一模一样,但Polygon能自动闭合} //绘制连续直线Polyline procedureTForm1.FormPaint(Sender:TObject)
涂孟超·2014-09-26 15:00

WinAPI: QueryPerformanceCounter - 获取高性能定时器的当前值

//声明: QueryPerformanceCounter( varlpPerformanceCount:TLargeInteger{获取定时器每秒的频率数;TLargeInteger=Int64} ):BOOL;{返回False表示调用失败,或者是硬件不支持高性能定时器} //一个有趣的示例:判断你的鼠标点击速度;我的最快记录是151毫米 var n1,n
涂孟超·2014-09-26 15:00

WinAPI: GetFocus - 获取当前拥有焦点的窗口的句柄

//声明: GetFocus:HWND;{无参数;返回当前拥有焦点窗口的句柄} //举例: unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,ExtCtrls; type
涂孟超·2014-09-26 15:00

WinAPI: midiOutShortMsg - 向输出设备发送 MIDI 短消息

提示:此函数可以发送系统专用消息以外的任何MIDI消息;直到已经发送给输出设备才返回.//声明: midiOutShortMsg( hMidiOut:HMIDIOUT;{设备句柄} dwMsg:DWORD{MIDI消息;消息是2字节,第一字节在低位} ):MMRESULT;{成功返回0;可能的错误值见下:} MMSYSERR_INVALHANDLE=5;{设备句柄无效} MIDIE
涂孟超·2014-09-26 15:00

WinAPI: GetLocalTime、SetLocalTime、SetSystemTime - 获取与设置系统时间

//声明 GetLocalTime( varlpSystemTime:TSystemTime{TSystemTime结构} );{无返回值} //设置本地时间 SetLocalTime( constlpSystemTime:TSystemTime{TSystemTime结构} ):BOOL; //SetSystemTime设置的是格林尼治时间 SetSystemTime(
涂孟超·2014-09-26 15:00

WinAPI: GetWindowThreadProcessId - 获取指定窗口的进程 ID 或线程 ID

//声明: GetWindowThreadProcessId( hWnd:HWND;{指定窗口句柄} lpdwProcessId:Pointer=nil{返回进程ID的指针} ):DWORD;{返回线程ID} //举例: unitUnit1; interface uses Windows,Messages,SysUtils,Variants,C
涂孟超·2014-09-26 15:00

WinAPI: InflateRect - 改变矩形大小

//声明: InflateRect( varlprc:TRect;{要修改的矩形} dx,dy:Integer{变化值} ):BOOL; //举例: procedureTForm1.FormPaint(Sender:TObject); var R:TRect; const s='%d,%d,%d,%d'; begin R:=Rect(60,60,
涂孟超·2014-09-26 15:00

WinAPI: LoadMenu - 从资源中载入菜单

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

WinAPI: SwapMouseButton - 交换鼠标左右键的功能

//声明 SwapMouseButton( fSwap:BOOL{True:交换;False:恢复} ):BOOL;
涂孟超·2014-09-26 15:00

WinAPI: InvertRect - 翻转矩形中像素的颜色

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

WinAPI: GetWindowText - 获取窗口标题

//声明: GetWindowText( hWnd:HWND;{窗口句柄} lpString:PChar;{接收文本的缓冲区的指针} nMaxCount:Integer{指定缓冲区大小,其中包含NULL字符;如果文本超出，会被被截断} ):Integer;{返回字符个数,不包括中断的空字符;如果标题为空或句柄无效,则返回零} //举例: var arr:
涂孟超·2014-09-26 15:00

WinAPI: GetTempPath - 获取临时文件夹路径

//声明: GetTempPath( nBufferLength:DWORD;{缓冲区大小} lpBuffer:PChar{缓冲区} ):DWORD;{返回实际长度} //举例: var arr:array[0..MAX_PATH]ofChar; num:DWORD; begin num:=GetTempPath(MAX_PATH,arr); Sh
涂孟超·2014-09-26 15:00

WinAPI: CombineRgn - 区域合成

CombineRgn( p1:HRGN;{合成后的区域} p2,p3:HRGN;{两个原始区域} p4:Integer{合并选项;见下表} ):Integer;{有四种可能的返回值} //合并选项: RGN_AND=1; RGN_OR=2; RGN_XOR=3; RGN_DIFF=4; RGN_COPY=5;{复制第一个区域} //返回值: ERROR=0;{错误}
涂孟超·2014-09-26 15:00

WinAPI: midiInAddBuffer - 向 MIDI 输入设备发送一个输入缓冲区

提示:缓冲区写满后送回应用程序;输入缓冲区只用于系统互斥的消息;在缓冲区传给midiInAddBuffer之前,先要调用midiInPrepareHeader准备;还要调用GlobalAlloc给TMidiHdr和其中lpData指向的缓冲区分配内存(使用GMEM_MOVEABLE、GMEM_SHARE),并用GlobalLock锁定.//声明: midiInAddBuffer( hMidiI
涂孟超·2014-09-26 15:00

WinAPI: 菜单函数汇总

functionLoadMenu( hInstance:HINST;{} lpMenuName:PChar{} ):HMENU;{} functionLoadMenuIndirect( lpMenuTemplate:Pointer{} ):HMENU;{} functionGetMenu( hWnd:HWND{} ):HME
涂孟超·2014-09-26 15:00

WinAPI: RoundRect - 绘制圆角矩形

//声明: RoundRect( DC:HDC;{设备环境句柄} X1,Y1,X2,Y2,X3,Y3:Integer{点1、点2是构成矩形的坐标;X3是圆角宽度、Y3是圆角高度} ):BOOL; //举例: procedureTForm1.FormPaint(Sender:TObject); const x1=20; y1=20; x2=200;
涂孟超·2014-09-26 15:00

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

本例测试修改光标的设置闪烁速度,注意这会影响到其他程序,退出时应恢复到系统默认的530毫秒.本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,ExtCtrls; type TForm
涂孟超·2014-09-26 15:00

WinAPI 字符及字符串函数(14): CharToOem、OemToChar

CharToOemBuff、OemToCharBuff与CharToOem、OemToChar的区别只是前者可以指定要转换的字符数.unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm
涂孟超·2014-09-26 15:00

WinAPI: GetCursorPos - 获取鼠标指针的当前位置

//声明: GetCursorPos( varlpPoint:TPoint{POINT结构指针,接收鼠标指针的屏幕坐标} ):BOOL; //举例: var pt:TPoint; begin GetCursorPos(pt); ShowMessage(Format('ScreenX:%d;ScreenY:%d',[pt.X,pt.Y])); end;
涂孟超·2014-09-26 15:00

WinAPI: GetForegroundWindow - 获取前台窗口的句柄

//声明: GetForegroundWindow:HWND; //举例: unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,ExtCtrls; type TForm1=
涂孟超·2014-09-26 15:00

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

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

WinAPI: ShellExecute - 打开外部程序或文件

ShellExecute( hWnd:HWND;{指定父窗口句柄} Operation:PChar;{指定动作,譬如:open、print} FileName:PChar;{指定要打开的文件或程序} Parameters:PChar;{给要打开的程序指定参数;如果打开的是文件这里应该是nil} Directory:PChar;{缺省目录} ShowCmd:Integer{打开选项}
涂孟超·2014-09-26 15:00

WinAPI: midiOutCacheDrumPatches - 预装鼓音色

提示:参数三数组中的每一个元素代表128种鼓音色中的一种;MIDI通道用0-15表示,譬如通道9和15使用了60号键上的音色,数组的第60个元素就是$8200.//声明: midiOutCacheDrumPatches( hMidiOut:HMIDIOUT;{设备句柄;这个设备应该是内部合成器} uPatch:UINT;{指定鼓音色号;缺省设置为0} lpwKeyArray:PWord;{
涂孟超·2014-09-26 15:00

WinAPI: EqualRect、EqualSid、EqualPrefixSid - 判断一个矩形(或其他结构)是否相等

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: 输入光标相关的函数[4]

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

博客导读

Windows编程|学习Message|多线程编程|内存管理|内存函数|钩子函数|初学汇编|算法与数据结构|资源文件|光标相关函数|WinAPI字符及字符串函数|再学GDI+|用GDI操作EMF文件|Delphi
涂孟超·2014-09-26 15:00

WinAPI: GetTopWindow - 获取指定窗口的子窗口中最顶层的窗口句柄

//声明: GetTopWindow( hWnd:HWND;{指定的窗口句柄} ):HWND;{失败返回0;成功返回最顶层的子窗口句柄} 这和用GetWindow函数使用GW_CHILD参数时应该是一样的,测试一下:var h1,h2:HWND; begin h1:=GetTopWindow(GetDesktopWindow); h2:=GetWindow(Ge
涂孟超·2014-09-26 15:00

WinAPI: SetWindowsHookEx - 设置钩子

提示:如果要设置系统级钩子,钩子函数必须在DLL中.SetWindowsHookEx( idHook:Integer;{钩子类型} lpfn:TFNHookProc;{函数指针} hmod:HINST;{包含钩子函数的模块(EXE、DLL)句柄;一般是HInstance;如果是当前线程这里可以是0} dwThreadId:DWORD{关联的线程;可用GetCurrentThreadId获取
涂孟超·2014-09-26 15:00

WinAPI: midiOutGetVolume - 获取 MIDI 输出设备的音量

//声明: midiOutGetVolume( hmo:HMIDIOUT;{设备句柄} lpdwVolume:PDWORD{返回音量的地址;低两位是左声道音量,高两位是右声道音量;$FFFF是最大,$0000是最小} ):MMRESULT;{成功返回0;可能的错误值如下:} MMSYSERR_INVALHANDLE=5;{设备句柄无效} MMSYSERR_NODRIVER=6;{没
涂孟超·2014-09-26 15:00

WinAPI: waveOutGetPosition - 获取输出设备当前的播放位置

//声明: waveOutGetPosition( hWaveOut:HWAVEOUT;{设备句柄} lpInfo:PMMTime;{TMMTime结构的指针,用于返回播放位置} uSize:UINT{TMMTime结构的大小,以字节为单位} ):MMRESULT;{成功返回0;可能的错误值见下:} MMSYSERR_INVALHANDLE=5;{设备句柄无效} MMSYSERR
涂孟超·2014-09-26 15:00

WinAPI: midiInMessage - 向 MIDI 输入设备发送一条消息

//声明: midiInMessage( hMidiIn:HMIDIIN;{设备句柄} uMessage:UINT;{消息} dw1:DWORD{消息参数} dw2:DWORD{消息参数} ):MMRESULT;{函数成功返回发送的消息} //举例:
涂孟超·2014-09-26 15:00

WinAPI 字符及字符串函数(5): IsCharAlpha - 是否是个字母

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
上一页 42 43 44 45 46 47 48 49 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他