http://blog.163.com/t_form/blog/static/12348523220115132155814/
function EnumWindowsProc_2(hwnd: HWND; lParam: LPARAM): Boolean; stdcall;
var
buf: array[Byte] of Char;
begin
GetWindowText(hwnd, buf, SizeOf(buf));
if buf <> '' then
begin
if pos('YY3.8(', buf) <> 0 then
begin
Form1.cbox_YYID.Items.Add(buf);
Form1.cbox_YYID.ItemIndex := 0;
end;
end;
Result := True;
end;
EnumWindows(@EnumWindowsProc_2, 0);
delphi lazarus opengl
网页操作自动化, 图像分析破解,游戏开发