ftwsnow

摘要： EnumWindows 的功能是遍历所有顶层窗口 function EnumWindows( lpEnumFunc: TFNWndEnumProc; {回调函数指针} lParam: LPARAM {给回调函数的参数, 它对应回调函数的第二个参数}): BOOL; stdcall; //成功与否, 其实是返回了回调函数的返回值EnumWindows 专用的回调函数的格式: function EnumWindowsProc( hwnd: HWND; {找到的窗口句柄} lParam: LPARAM {EnumWindows 传给的参数; 因... 阅读全文

摘要： varhWindow: HWND; { 窗体句柄 }dwProcessID: DWORD; { 进程 ID }hProcess: THandle; { 进程句柄 }begin{ 根据标题获取窗体的句柄 }hWindow := FindWindow(nil, '标题');{ 通过窗体句柄获取进程 ID }GetWindowThreadProcessId(hWindow, dwProcessID);{ 通过进程 ID 获取进程句柄 }hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, dwProcessID);{ 结... 阅读全文

摘要： {隐藏任务栏}var hTray:HWND;begin hTray:=FindWindow('Shell_TrayWnd',nil); ShowWindow(hTray,SW_HIDE);end;{显示任务栏}var hTray:HWND;begin hTray:=FindWindow('Shell_TrayWnd',nil); ShowWindow(hTray,SW_SHOW);end; 阅读全文

摘要： {FindWindow 的两个参数: 第一个: 是类名, 计算器的类名是: SciCalc 第二个: 是标题名 两个参数有其一即可,格式: }h := FindWindow('SciCalc', nil);h := FindWindow(nil, '计算器'); procedure SendMsg(AppName,Msg:string);var ds: TCopyDataStruct; handle:THandle;begin ds.cbData:=Length(Msg)+1; GetMem(ds.lpData,ds.cbData); try StrCopy(d 阅读全文