请问锁屏技术如何实现？请高手指点。

kun_bu 2003-02-21 05:35:18

锁屏技术如何实现？象现在网吧用的那种锁屏，是否使用了鼠标和键盘钩子，
两个钩子中回调函数中第一个参数iCode取各种值时到底是何含义，应该怎样做，
如有一些源码，将万分感激。
在Win98下按Ctrl+Alt+Del会出现进程列表，如何使我的应用程序不出现在列表当中。

...全文

84 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

cx_super 2003-02-24

打赏
举报

winnerkun 2003-02-23

打赏
举报

2000可以的

qiume 2003-02-23

打赏
举报

学习

ahjoe 2003-02-23

打赏
举报

Type
RegisterServiceProcessType = function(dwProcessID, dwType: DWord) : DWord; stdcall;
var
RegisterServiceProc: RegisterServiceProcessType;

const
RSPSIMPLESERVICE = 1;
RSPUNREGISTERSERVICE = 0;

procedure InitRegisterServiceProc();
var
hm: HMODULE;
begin
hm := GetModuleHandle('KERNEL32.DLL');
RegisterServiceProc := GetProcAddress(hm, 'RegisterServiceProcess');
end;

procedure TNetBarTrayForm.FormCreate(Sender: TObject);
begin
InitRegisterServiceProc();
if @RegisterServiceProc <> nil then
RegisterServiceProc(GetCurrentProcessID(), RSPSIMPLESERVICE);// hide from task list
end;

walonelee 2003-02-22

打赏
举报

jishiping 2003-02-22

打赏
举报

function BlockInput(Flag: BOOL) : BOOL; stdcall; external 'user32.DLL';

BlockInput(TRUE); //锁定键盘和鼠标
BlockInput(FALSE); //解锁

sunware 2003-02-22

打赏
举报

在NT下也不行的.

jiangshi99 2003-02-22

打赏
举报

学习中……

架构师Beata 2003-02-22

打赏
举报

qhf503 2003-02-22

打赏
举报

用 naughtyboy() 的方法在win98是行得通的
可是在2000就不行了

fairychild 2003-02-22

打赏
举报

我用REGISTERSERVICEPROCESS在WIN2000下会说找不到入中点，而我通过pan duan 是不是WIN2000 从而不从REGISTERPROCESS这个函数也不行，我what can i do {{{{{{{{{{{{}}}

naughtyboy 2003-02-21

打赏
举报

顺便提一下
RegisterServiceProcess这种方法只能在9x下才起作用

naughtyboy 2003-02-21

打赏
举报

EnableWindow这能实现比较简单的要求
function RegisterServiceProcess(dwProcessID, dwType: Integer):Integer; stdcall;
external 'KERNEL32.DLL';

form onCrreate

var
pId: dword;
begin
pid:= getcurrentprocessid();
if 0=registerserviceprocess(pid) then
showmessage('can not hide process');
end;

button1 onclick
begin
self.hide;//hide the window
end;

kun_bu 2003-02-21