- 博客(4)
- 资源 (1)
- 收藏
- 关注
原创 判断端口(Port)是否被占用
在使用Socks编程时,有时需要判断某个端口是否被占用,也就是是否被其它程序使用。 uses Winsock; function IsPortUsed(const aPort: Integer): Boolean;var _vSock : TSocket; _vWSAData : TWSAData; _vAddrI...
2010-12-23 15:47:10 559
原创 获取Windows系统特殊性目录路径
引用单元 usesShlObj 获取方法: function GetPath(FID: Integer): string;var pidl: PItemIDList; path: array[0..MAX_PATH] of Char;begin SHGetSpecialFolderLocation(0, FID, pidl); SHGetPathFromI...
2010-12-09 15:31:39 293
原创 进程通讯之WM_COPYDATA
发送程序(SendData.exe): unit SendUnit; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TFrmSend = class(TForm) BtnSend...
2010-12-09 14:11:28 132
原创 通过进程ID获取主窗句柄
function GetHwndFromProcess(const hPID: THandle): THandle; type PEnumInfo = ^TEnumInfo; TEnumInfo = record ProcessID: DWORD; HWND: THandle; end; function EnumWindowsProc(Wnd: D...
2010-12-08 15:41:19 180
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人