?? code.txt
字號:
編寫代碼:在這里只列出了核心代碼
function GetQQWnd: HWND;
var
hCurrentWindow: HWnd;
szclass:array[0..254]of char;
begin
hCurrentWindow := GetWindow(Application.Handle, GW_HWNDFIRST);
while hCurrentWindow <> 0 do
begin
Getclassname(hCurrentwindow,@szclass,255) ;
if Strpas(@szclass)='#32770'then
begin
if findwindowex(hCurrentwindow,0,'Tencent_QQToolBar',nil)>0 then
begin
Result:=hCurrentWindow;
Exit;
end;
end;
hCurrentWindow := GetWindow(hCurrentWindow, GW_HWNDNEXT);
end;
Result:=0;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if getqqwnd=0 then exit;
SendMessage(getqqWnd,WM_command,13203,0);
SendMessage(getqqWnd,WM_command, 13200,0);
end;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -