WinAPI

WinAPI: SetTextCharacterExtra - 设置字符间距

//声明: SetTextCharacterExtra( DC:HDC;{设备环境句柄} CharExtra:Integer{间距(按逻辑单位);若映射模式不是MM_TEXT,则舍入到最接近的像素} ):Integer;{返回字符间隔的先前值;调用失败返回$80000000} //举例: procedureTForm1.FormPaint(Sender:TO
涂孟超·2014-09-26 15:00

WinAPI: CreateBrushIndirect - 根据画刷结构建立画刷

//声明: CreateBrushIndirect( constp1:TLogBrush{画刷结构} ):HBRUSH;{返回画刷句柄} //TLogBrush是tagLOGBRUSH结构的重定义: tagLOGBRUSH=packedrecord lbStyle:UINT;{画刷风格} lbColor:COLORREF;{颜色} lbHatch:Longint;{阴影样式}
涂孟超·2014-09-26 15:00

WinAPI: SetCurrentDirectory、GetCurrentDirectory - 设置与获取当前目录

//声明: SetCurrentDirectory( lpPathName:PAnsiChar{路径名} ):BOOL; GetCurrentDirectory( nBufferLength:DWORD;{缓冲区大小} lpBuffer:PAnsiChar{缓冲区} ):DWORD;{返回目录实际长度} //举例: var buf:array[0
涂孟超·2014-09-26 15:00

WinAPI: WinExec - 运行外部程序

//声明 WinExec( lpCmdLine:LPCSTR;{文件名和参数;如没指定路径会按以下顺序查找:程序目录/当前目录/System32/Windows/PATH环境变量} uCmdShow:UINT{启动选项} ):UINT; //返回值: 大于31{调用成功} 等于0{内存不足} ERROR_FILE_NOT_FOUND=2;{文件名错误} ERROR_PATH_
涂孟超·2014-09-26 15:00

WinAPI: CallNextHookEx - 调用下一个钩子

CallNextHookEx( hhk:HHOOK;{当前钩子的句柄} nCode:Integer;{钩子代码;就是给下一个钩子要交待的} wParam:WPARAM;{要传递的参数;由钩子类型决定是什么参数} lParam:LPARAM{要传递的参数;由钩子类型决定是什么参数} ):LRESULT;{会返回下一个钩子执行后的返回值;0表示失败} //参数nCode的可选值: H
涂孟超·2014-09-26 15:00

WinAPI: CreatePatternBrush - 建立位图画刷

//声明: CreatePatternBrush( Bitmap:HBITMAP{位图句柄} ):HBRUSH;{返回画刷句柄} //举例: procedureTForm1.FormPaint(Sender:TObject); var Bitmap:TBitmap; BrushHandle:HBRUSH; begin Bitmap:=TBitmap.
涂孟超·2014-09-26 15:00

WinAPI 字符及字符串函数(1): CharLower - 字符或字符串转小写

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: OpenProcess、GetExitCodeProcess、TerminateProcess (测试强制关闭 OICQ)

//声明: {返回进程的句柄} OpenProcess( dwDesiredAccess:DWORD;{访问选项} bInheritHandle:BOOL;{能否继承;True表示能用CreateProcess继承句柄创建新进程} dwProcessId:DWORD{指定进程ID} ):THandle;{成功会返回进程句柄;失败返回0} //dwDesiredAccess可选
涂孟超·2014-09-26 15:00

WinAPI: LoadCursor - 从资源中载入光标

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

WinAPI: waveInMessage - 向波形输入设备发送一条消息

//声明: waveInMessage( hWaveIn:HWAVEIN;{设备句柄} uMessage:UINT;{消息} dw1:DWORD{消息参数} dw2:DWORD{消息参数} ):MMRESULT;{将由设备给返回值} //举例:
涂孟超·2014-09-26 15:00

WinAPI: midiInReset - 重置输入

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

WinAPI 字符及字符串函数(3): CharUpper - 字符或字符串转大写

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: GetKeyNameText - 根据键盘消息获取按键名称

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

WinAPI: SetTimer、KillTimer - 创建与移除高性能定时器

//创建定时器函数的声明: SetTimer( hWnd:HWND;{与定时器相关联的窗口句柄} nIDEvent:UINT;{指定一个非0的定时器标识符} uElapse:UINT;{指定间隔时间,单位是毫秒} lpTimerFunc:TFNTimerProc{每到时间后,要调用的函数的指针} ):UINT;{返回定时器标识符;失败返回0} //移除定时器函数的声明: Kil
涂孟超·2014-09-26 15:00

WinAPI: CreateFontIndirect - 根据字体结构建立逻辑字体

//声明: CreateFontIndirect( constp1:TLogFont{字体结构} ):HFONT;{返回新字体指针} //TLogFont是tagLOGFONTA结构的重定义: tagLOGFONTA=packedrecord lfHeight:Longint;{字体高度} lfWidth:Longint;{字体平均宽度} lfEscapement:Longin
涂孟超·2014-09-26 15:00

WinAPI: waveOutGetNumDevs - 获取波形输出设备的数目

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

WinAPI: midiInOpen - 打开 MIDI 输入设备

提示:因为其中的回调函数是在中断时间内访问的,必须在DLL中;要访问的数据都必须是在固定的数据段中;除了PostMessagetimeGetSystemTimetimeGetTimetimeSetEventtimeKillEventmidiOutShortMsgmidiOutLongMsgOutputDebugString外,也不能有其他系统调用.//声明: midiInOpen( lphMi
涂孟超·2014-09-26 15:00

WinAPI: GetWindowRect、GetClientRect - 获取窗口的外部与内部矩形

提示:1、其实用Delphi内部同类函数很方便的,但系统函数是全局的;2、使用GetClientRect时,一般要Windows.GetClientRect,因为TForm的父类有同名函数.//声明: {获取窗口外部矩形(相对于屏幕)} GetWindowRect( hWnd:HWND;{窗口句柄} varlpRect:TRect{用于返回的矩形指针} ):BOOL; {获取窗
涂孟超·2014-09-26 15:00

WinAPI: midiOutOpen - 打开 MIDI 输出设备

提示:因为其中的回调函数是在中断时间内访问的,必须在DLL中;要访问的数据都必须是在固定的数据段中;除了PostMessagetimeGetSystemTimetimeGetTimetimeSetEventtimeKillEventmidiOutShortMsgmidiOutLongMsgOutputDebugString外,也不能有其他系统调用.//声明: midiOutOpen( lphM
涂孟超·2014-09-26 15:00

WinAPI: CopyFileEx

functionCopyFileEx( lpExistingFileName:PWideChar;{源文件} lpNewFileName:PWideChar;{新的目标文件} lpProgressRoutine:TFNProgressRoutine;{回调函数;每复制64K调用一次} lpData:Pointer;{给回调函数的参数} pbCancel:PBool;{是个布尔值指针;Tr
涂孟超·2014-09-26 15:00

WinAPI: midiOutGetNumDevs - 获取 MIDI 输出设备的数目

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

WinAPI: ExtractIcon - 获取 EXE、DLL 或 ICO 文件中的图标

//声明: ExtractIcon( hInst:HINST;{调用函数的程序实例} lpszExeFileName:PChar;{文件路径;文件可以是*.exe、*.dll、*.ico} nIconIndex:UINT{图标索引} ):HICON;{返回图标句柄;索引为0时返回第一个图标句柄;索引为#FFFFFFFF时返回图标总数} //举例: unit
涂孟超·2014-09-26 15:00

WinAPI: waveInStart - 启动输入

//声明: waveInStart( hWaveIn:HWAVEIN{设备句柄} ):MMRESULT;{成功返回0;可能的错误值见下:} MMSYSERR_INVALHANDLE=5;{设备句柄无效} MMSYSERR_HANDLEBUSY=12;{设备已被另一线程使用} //举例:
涂孟超·2014-09-26 15:00

WinAPI: Beep - 简单发声

//声明: Beep( dwFreq:DWORD;{声音频率} dwDuration:DWORD{声音长度} ):BOOL; //下面会以国际标准音的高度发声,持续1秒钟 begin Windows.Beep(440,1000);{注意:如果没有Windows前缀,调用的是另一个函数} end;
涂孟超·2014-09-26 15:00

WinAPI: midiOutGetID - 获取输出设备 ID

//声明: midiOutGetID( hMidiOut:HMIDIOUT;{获取输出设备句柄} lpuDeviceID:PUINT{接受ID的变量的指针} ):MMRESULT;{成功返回0;可能的错误值见下:} MMSYSERR_INVALHANDLE=5;{设备句柄无效} //举例:
涂孟超·2014-09-26 15:00

WinAPI: GetActiveWindow - 获取当前活动窗口的句柄

//声明: GetActiveWindow:HWND;{无参数;返回当前活动窗口的句柄} //举例: var h:HWND; begin h:=GetActiveWindow; FlashWindow(h,True); end;
涂孟超·2014-09-26 15:00

WinAPI: Chord - 绘制弦

//声明: Chord( DC:HDC;{设备环境句柄} X1,Y1,X2,Y2,X3,Y3,X4,Y4:Integer{四个坐标点} ):BOOL; //举例: procedureTForm1.FormPaint(Sender:TObject); const x1=10; y1=10; x2=200; y2=200; x3=130; y3
涂孟超·2014-09-26 15:00

博客导读(09.3.21)

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

WinAPI: GetSystemDirectory - 返回 System 文件夹路径

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

WinAPI: GetParent - 获取指定窗口的父窗口句柄

//声明: GetParent( hWnd:HWND{窗口句柄} ):HWND;{返回父窗口句柄} //举例: procedureTForm1.Button1Click(Sender:TObject); var h1,h2:HWND; begin h1:=GetParent(Button1.Handle); h2:=Panel1.Handle; S
涂孟超·2014-09-26 15:00

WinAPI: Ellipse - 绘制椭圆

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

WinAPI: SetRectEmpty、IsRectEmpty

SetRectEmpty:使矩形为空;IsRectEmpty:判断矩形是否为空;所谓矩形为空就是矩形是无区域的,或者说是Right<=Left或Bottom<=Top情形下的矩形.unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs;
涂孟超·2014-09-26 15:00

WinAPI: midiInStop - 停止输入

提示:函数会将当前缓冲区标记为已执行,但会保留队列中任何空的缓冲区.//声明: midiInStop( hMidiIn:HMIDIIN{设备句柄} ):MMRESULT;{成功返回0;可能的错误值见下:} MMSYSERR_INVALHANDLE=5;{设备句柄无效} //举例:
涂孟超·2014-09-26 15:00

WinAPI 字符及字符串函数(8): IsCharUpper - 是否是个大写字母

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: SetRectRgn - 将区域转换成矩形区域

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

WinAPI: waveOutGetPlaybackRate - 设置输出设备的播放速度(默认速度值的倍数)

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

WinAPI: GetCurrentThread、GetCurrentThreadId、GetCurrentProcess、GetCurrentProcessId

{返回当前线程的虚拟句柄} GetCurrentThread:THandle; {返回当前线程ID} GetCurrentThreadId:DWORD; {返回当前进程的虚拟句柄} GetCurrentProcess:THandle; {返回当前进程ID} GetCurrentProcessId:DWORD; 提示:ID是系统唯一的标识.所谓虚拟句柄
涂孟超·2014-09-26 15:00

WinAPI: waveOutGetVolume - 获取输出设备当前的音量设置

提示:参数lpdwVolume的两低位字节存放左声道音量,两高位字节存放右声道音量;$FFFF、$0000分别表示最大与最小音量;如不支持立体声,两低位字节存放单声道音量.//声明: waveOutGetVolume( hwo:HWAVEOUT;{设备句柄} lpdwVolume:PDWORD{存放音量值的变量的指针} ):MMRESULT;{成功返回0;可能的错误值见下:} MMS
涂孟超·2014-09-26 15:00

WinAPI: CreateRectRgn、CreateRectRgnIndirect、FillRgn、FrameRgn - 建立矩形区域

本例效果图: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: midiOutReset - 重置输出设备

提示:函数将关闭通道上的所有标记,放弃未处理的缓冲区并返回给程序;//声明: midiOutReset( hMidiOut:HMIDIOUT{设备句柄} ):MMRESULT;{成功返回0;可能的错误值见下:} MMSYSERR_INVALHANDLE=5;{设备句柄无效} //举例:
涂孟超·2014-09-26 15:00

WinAPI: SetPixel 和 SetPixelV - 设置设备环境中指定位置的颜色

//声明: SetPixel( DC:HDC;{设备环境句柄} X,Y:Integer;{坐标} Color:COLORREF{颜色值} ):COLORREF;{返回颜色值} SetPixelV( DC:HDC;{设备环境句柄} X,Y:Integer;{坐标} Color:COLORREF{颜色值} ):BOOL; {SetPixel与SetPixelV功能一致,但
涂孟超·2014-09-26 15:00

WinAPI: midiOutPrepareHeader - 为 MIDI输出准备一个缓冲区

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

WinAPI: SetCursorPos - 设置鼠标指针位置

//声明: SetCursorPos( X:Integer; Y:Integer ):BOOL; {如果不在ClipCursor函数设置矩形区域内，系统会区域内自动调整} //举例: begin SetCursorPos(0,0);{鼠标移动到左上角} end;
涂孟超·2014-09-26 15:00

WinAPI: midiOutLongMsg - 向输出设备发送一条系统专用的 MIDI 消息

提示:在缓冲区给midiOutLongMsg之前,先要调用midiOutPrepareHeader准备;还要调用GlobalAlloc给TMidiHdr和其中lpData指向的缓冲区分配内存(使用GMEM_MOVEABLE、GMEM_SHARE),并用GlobalLock锁定.//声明: midiOutLongMsg( hMidiOut:HMIDIOUT;{设备句柄} lpMidiOutHd
涂孟超·2014-09-26 15:00

WinAPI: midiOutCachePatches - 预装音色

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

WinAPI 字符及字符串函数(7): IsCharLower - 是否是个小写字母

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: Polygon - 绘制多边形

//声明: Polygon( DC:HDC;{设备环境句柄} varPoints;{点数组} Count:Integer{数组元素个数} ):BOOL; //举例: procedureTForm1.FormPaint(Sender:TObject); var ps:array[0..5]ofTPoint; begin ps[0].X:=50; p
涂孟超·2014-09-26 15:00

WinAPI: midiOutUnprepareHeader - 清除由 midiOutPrepareHeader 完成的准备

提示:设备写满缓冲区返回给程序后,须调用此函数;释放(GlobalFree)缓冲区前,须调用此函数;取消一个尚未准备的缓冲区将无效,但函数返回0//声明: midiOutUnprepareHeader( hMidiOut:HMIDIOUT;{设备句柄} lpMidiOutHdr:PMidiHdr;{TMidiHdr结构指针} uSize:UINT{TMidiHdr结构大小} ):MMRE
涂孟超·2014-09-26 15:00

WinAPI: AlphaBlend - 图像透明度

AlphaBlend( DC:HDC;{目标设备环境句柄} p2,p3,p4,p5:Integer;{目标位置与宽高} DC6:HDC;{源设备环境句柄} p7,p8,p9,p10:Integer;{源位置与宽高} p11:TBlendFunction{合成方式的数据结构,见下表} ):BOOL; //TBlendFunction结构是_BLENDFUNCTION的重命名: _
涂孟超·2014-09-26 15:00

WinAPI: GetWindowsDirectory - 获取 Windows 所在目录

//声明: GetWindowsDirectory( lpBuffer:PChar;{缓冲区} uSize:UINT{缓冲区大小} ):UINT;{返回实际长度} //举例: var arr:array[0..MAX_PATH]ofChar; num:UINT; begin num:=GetWindowsDirectory(arr,MAX_PATH)
涂孟超·2014-09-26 15:00
上一页 43 44 45 46 47 48 49 50 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他