procedure TForm1.ShowButtonClick(Sender: TObject);
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_RESTORE);
end;
程序很简单 是隐藏windows工具条
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_RESTORE);
这3个函数什么意思 以及作用 还请麻烦翻译一下 谢谢啦
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_RESTORE);
end;
程序很简单 是隐藏windows工具条
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_RESTORE);
这3个函数什么意思 以及作用 还请麻烦翻译一下 谢谢啦
procedure TForm1.Button1Click(Sender: TObject);
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
lstrcpy(wndClass,'Shell_TrayWnd');
wndHandle := FindWindow(wndClass, nil);
ShowWindow(wndHandle, SW_RESTORE);
end;
或:
procedure TForm1.Button1Click(Sender: TObject);
var
wndHandle : THandle;
begin
wndHandle := FindWindow('Shell_TrayWnd', nil);
ShowWindow(wndHandle, SW_RESTORE);
end;
wndHandle := FindWindow(@wndClass[0], nil); //查找指定名称的窗口句柄
ShowWindow(wndHandle, SW_RESTORE); //显示窗口
Delphi菜单最后一项“Help”,展开后前三项分别是“Delphi Help”“Delphi Tools”“Windows SDK”,在这里可以找到绝大多数函数(方法)、类型、结构的英文说明