如何让程序在任务栏里不显示，而且通过快捷键来激活（显示）程序！全部分数送上！今天晚上结贴

2003-12-06 04:45:31 720 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

王道考研操作系统笔记（第一章）附：王道考研408所有PPT和思维导图学习感想别人的笔记对你的学习基本上没有用处，容易培养人的惰性，如需ppt和思维导图请拉到最后，有github链接记笔记并不是一件浪费时间的事情，还有利于多次学习真心希望大家在学习的过程中记笔记操作系统第一章计算机系统概述 1.1 操作系统 1.1.1 操作系统的概念和功能概念操作系统（Operating System， OS）是指控制和管理整个计算机系统的硬件和软件资源，并合理地组织调度计算机的工作和资源的分配；以提供给用户和其他软件方便的接口和环境；它是计算机系统中最基本的系统软阅读详情

...全文

第1期技术: DQN算法原理及实现过程利用神经网络近似值函数的方法表示为： V^(s,w)≈Vπ(s)q^(s,a,w)≈qπ(s,a) \hat{V}(s, w) \approx V_{\pi}(s) \\ \hat{q}(s, a, w) \approx q_{\pi}(s, a) V^(s,w)≈Vπ(s)q^(s,a,w)≈qπ(s,a) 那么具体的工作过程是怎样实现的? 以及如何从端到端的过程，本文将讲解Deep Q Network（DQN, 而这正是由DeepMind于2013年和2015年分别提出的两篇论文《Playi 阅读详情

我是老姚

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

我是老姚 2003-12-08

打赏
举报

为什么把VK＿F11换成VK＿CANCEL或者VK＿X不行呢？

smalltalk 2003-12-07

打赏
举报

完整例子，比你想要的功能还多。注意，hidedll.dll需要到
http://yaksa.3322.org/leadbbs/Announce/Announce.asp?BoardID=306&ID=633
下载。
至于hidedll.dll的原码，偶暂时不打算公开。

//unit1.dfm
object Form1: TForm1
Left = 354
Top = 369
Width = 628
Height = 450
Caption = 'Test Hide Process, CreateToolhelp32Snapshot() can'#39't find it.'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 24
Top = 56
Width = 569
Height = 57
Caption =
'Before you press this button, you can see process id in task man' +
'ger(not application), IF you press, It disappears.'
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 24
Top = 152
Width = 569
Height = 49
Caption = 'Press here to close this window'
TabOrder = 1
OnClick = Button2Click
end
object Button3: TButton
Left = 24
Top = 224
Width = 569
Height = 57
Caption = 'Hide Window from Taskbar, Press '#39'CTRL + F10'#39' to restore back'
TabOrder = 2
OnClick = Button3Click
end
object Button4: TButton
Left = 24
Top = 304
Width = 569
Height = 57
Caption =
'hide windows from desktop and taskbar, Press "CTRL + F11" to res' +
'tore back'
TabOrder = 3
OnClick = Button4Click
end
end

//unit1.pas
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure Button3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button4Click(Sender: TObject);

Protected
procedure hotykey(var msg:TMessage); message WM_HOTKEY;

private
{ Private declarations }
public
{ Public declarations }
bUserClose : boolean;

end;

var
Form1: TForm1;
idkey10 : Integer;
idkey11 : Integer;

const
HIDEDLL = 'hidedll.dll';

function HideProcessAtAll(): integer; stdcall; external HIDEDLL;
function GetVersionMessage(): PChar;stdcall; external HIDEDLL;

implementation

{$R *.dfm}

procedure TForm1.hotykey(var msg:TMessage);
begin
if (msg.LParamLo=MOD_CONTROL) then
begin
if (msg.LParamHi=VK_F10) then
begin
ShowWindow(Application.handle, SW_SHOWNORMAL);
end;
if (msg.LParamHi=VK_F11) then
begin
ShowWindow(Application.handle, SW_SHOWNORMAL);
ShowWindow(handle, SW_SHOWNORMAL);
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
strmsg : PChar;
begin
strmsg := GetVersionMessage();
MessageBox(Application.handle, strmsg, 'Hello', MB_OK);
HideProcessAtAll();

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
bUserClose := true;
close();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
idkey10:=GlobalAddAtom('hotkey10');
RegisterHotKey(handle,idkey10,mod_control,VK_F10);
idkey11:=GlobalAddAtom('hotkey11');
RegisterHotKey(handle,idkey11,mod_control,VK_F11);

bUserClose := false;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := bUserClose;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ShowWindow(Application.handle, SW_HIDE);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnRegisterHotKey(handle,idkey10);
GlobalDeleteAtom(idkey10);
UnRegisterHotKey(handle,idkey11);
GlobalDeleteAtom(idkey11);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
ShowWindow(Application.handle, SW_HIDE);
ShowWindow(handle, SW_HIDE);
end;

end.

angelface 2003-12-07

打赏
举报

hook吧

我是老姚 2003-12-06

打赏
举报

能否给出一段程序呢？我不知道这些语句应该放在什么地方，还有注册快捷键怎么注册，我看有几个参数，那　几个参数怎么设置呢？

zyq_123 2003-12-06

打赏
举报

显示的时候这样：
ShowWindow(Application.Handle,SW_NORMAL);
Form1.Show;

zyq_123 2003-12-06

打赏
举报

用RegisterHotKey注册的快捷键，不论你的程序是否激活，是否隐藏，都会收到相应的WM_HOTKEY消息，处理这个消息就行了。

我是老姚 2003-12-06

打赏
举报

那如何实现程序隐藏后按下快捷键显示窗体呢？

zyq_123 2003-12-06

打赏
举报

隐藏主窗体的代码：
Form1.Hide;
就可以了。
隐藏任务栏里的图标的方法：
ShowWindow(Application.Handle,SW_HIDE);
就可以了。

但是你程序全部隐藏后，如果连任务栏都没有显示的话，那么你的快捷键就必须到系统中注册，否则程序隐藏后就不能接受到快捷键消息了。这就要使用下面两个API函数：
RegisterHotKey :程序运行时调用注册快捷键
UnregisterHotKey :程序结束时取消注册快捷键

如何让程序在任务栏里不显示，而且通过快捷键来激活（显示）程序！全部分数送上！今天晚上结贴

相关推荐