WinApi: SystemParametersInfo
举例: 更换桌面壁纸var
BmpPath: PChar;
begin
BmpPath := 'C:\Temp\Test.bmp';
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, BmpPa
原创
2021-04-30 13:28:37
693阅读
WinAPI: CopyFileEx
function CopyFileEx(
lpExistingFileName: PWideChar; { 源文件 }
lpNewFileName: PWideChar; { 新的目标文件 }
lpProgress
原创
2021-04-30 13:28:31
209阅读
WinAPI: CloseFigure
本例效果图:
代码文件:unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdC
原创
2021-04-30 13:29:27
123阅读
WinAPI: GetRegionData
GetRegionData(
RGN: HRGN; {区域句柄}
p2: DWORD; {区域数据缓冲区大小}
p3: PRgnData {区域数据结构 TRgnData 的指针, 见下表}
): DWORD; {成功返回 1}
原创
2021-04-30 13:29:37
104阅读
WinAPI: 测试 BitBlt
BitBlt(
DestDC: HDC; {目标 DC}
X, Y, Width, Height: Integer; {目标位置与大小}
SrcDC: HDC; {源 DC}
XSrc
原创
2021-04-30 13:28:38
231阅读
WinAPI: GetModuleFileName、GetModuleHandle
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dia
原创
2021-04-30 13:28:39
132阅读
WinAPI: SetWindowExtEx、SetViewportExtEx
相似函数: ScaleWindowExtEx、ScaleViewportExtEx
本例效果图:
代码文件:unit Unit1;
interface
uses
Windows, Messages, SysUtils,
原创
2021-04-30 13:28:42
166阅读
WinAPI: SetRectEmpty、IsRectEmpty
SetRectEmpty: 使矩形为空;
IsRectEmpty: 判断矩形是否为空;
所谓矩形为空就是矩形是无区域的, 或者说是 Right <= Left 或 Bottom <= Top 情形下的矩形.unit Unit1;
原创
2021-04-30 13:29:30
222阅读
Delphi WinAPI WaitForPrinterChange 引用单元：WinSpool 函数原型： //C++ DWORD WaitForPrinterChange( HANDLE hPrinter, DWORD Flags ); Flags参数： PRINTER_CHANGE_ADD_P
转载
2020-05-04 11:14:00
89阅读
WIN32线程控制主要实现线程的创建、终止、挂起和恢复等操作，这些操作都依赖于WIN32提供的一组API和具体编译器的C运行时库函数。在启动一个线程之前，必须为线程编写一个全局的线程函数，一般来说，C++的类成员函数不能作为线程函数。这是因为在类中定义的成员函数，编译器会给其加上this指针。如果一...
转载
2014-06-24 10:25:00
48阅读
2评论
消息值 注释 WM_NULL $0000 WM_CREATE $0001 WM_DESTROY $0002 WM_MOVE $0003 WM_SIZE $0005 WM_ACTIVATE $0006 WM_SETFOCUS $0007 WM_KILLFOCUS $0008 WM_ENABLE $00
原创
2022-06-22 21:57:09
52阅读
WinAPI: OffsetClipRgn、PtVisible
OffsetClipRgn: 移动剪切区域; PtVisible: 判断点是否在剪切区域中.
本例效果图:
代码文件:unit Unit1;
interface
uses
Windows, Messages, SysUtils, Va
原创
2021-04-30 13:28:45
141阅读
WinAPI: PtInRegion、OffsetRgn
本例效果图:unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
原创
2021-04-30 13:28:50
193阅读
WinAPI: FlattenPath、WidenPath
不管什么曲线命令, 到来路径中都会变成 Bezier 线; 也就是说路径中只有直线和 Bezier 线.
FlattenPath 和 WidenPath 都能够把路径中的 Bezier 线转换为近似的直线; 不同的是: 用 WidenPath 转
原创
2021-04-30 13:29:24
130阅读
WinAPI: UnhookWindowsHookEx - 卸掉钩子
UnhookWindowsHookEx(
hhk: HHOOK {钩子句柄}
): BOOL; {True/False}
//举例:
posted on
2
原创
2021-04-30 13:31:08
114阅读
WinAPI: waveInStop - 停止输入
提示: 如果未启动则调用无效, 但也返回 0; 缓冲区会被返回, TWaveHdr 结构中的 dwBytesRecorded 将包含返回的实际数据的长度.
//声明:
waveInStop(
hWaveIn: HWAVEIN {设备句柄}
): M
原创
2021-04-30 13:33:02
174阅读
WinAPI: waveInStart - 启动输入
//声明:
waveInStart(
hWaveIn: HWAVEIN {设备句柄}
): MMRESULT; {成功返回 0; 可能的错误值见下:}
MMSYSERR_INVALHANDLE = 5; {设备句柄无效}
MMSYS
原创
2021-04-30 13:33:04
151阅读
WinAPI: Beep - 简单发声
//声明:
Beep(
dwFreq: DWORD; {声音频率}
dwDuration: DWORD {声音长度}
): BOOL;
//下面会以国际标准音的高度发声, 持续 1 秒钟
begin
Windows.Beep(440,
原创
2021-04-30 13:43:47
294阅读
WinAPI: Arc - 绘制弧线
//声明:
Arc(
DC: HDC; {设备环境句柄}
X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer {四个坐标点}
): BOOL;
//举例:
proc
原创
2021-04-30 13:44:52
203阅读
