delphi编程接口API例子
时间: 2023-10-23 19:12:25 浏览: 58
以下是一些 Delphi 编程接口 API 的示例:
1. WinAPI: 获取窗口句柄
```delphi
var
Handle: HWND;
begin
Handle := FindWindow(nil, '窗口标题');
if Handle <> 0 then
ShowMessage('找到窗口句柄:' + IntToStr(Handle))
else
ShowMessage('未找到窗口');
end;
```
2. GDI+ API: 绘制图片
```delphi
uses
GDIPAPI, GDIPOBJ;
var
Graphics: TGPGraphics;
Image: TGPImage;
begin
Image := TGPImage.Create('C:\image.jpg');
Graphics := TGPGraphics.Create(Canvas.Handle);
Graphics.DrawImage(Image, 0, 0, Image.GetWidth, Image.GetHeight);
Graphics.Free;
Image.Free;
end;
```
3. ShellAPI: 打开网址
```delphi
uses
ShellAPI;
begin
ShellExecute(0, 'open', 'http://www.example.com', nil, nil, SW_SHOWNORMAL);
end;
```
4. Windows API Code Pack: 获取系统信息
```delphi
uses
WinApi.ShellAPI, WinApi.Windows, WinApi.ShellAPIEx;
var
Info: TShellLibraryInfo;
begin
if Succeeded(ShellLibraryFromPath('C:\Users\Public\Documents', Info)) then
ShowMessage('系统文档库路径:' + Info.Path)
else
ShowMessage('未找到系统文档库');
end;
```
以上是一些 Delphi 编程接口 API 的示例,希望对您有所帮助。