如何使自己的应用程序在98中按Ctrl+Alt+Del中不显示出来(30分)

M

messah

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #1

如何使自己的应用程序在98中按Ctrl+Alt+Del中不显示出来，要有源码.谢谢

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #2

/////不显示
procedure TForm1.Button1Click(Sender: TObject);
Var
temp:integer;
begin
SystemParametersInfo(
Spi_screensaverrunning,1,@temp,0);
end;
/////////显示
procedure TForm1.Button2Click(Sender: TObject);
Var
Temp:integer;
begin
SystemParametersInfo(
spi_screensaverrunning,0,@temp,0);
end;

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #3

98下容易，似乎是：RegisterServiceProcess
2000下就难了。

 

M

messah

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-24

• #4

to:jsxjd
我不是要屏蔽这几个键。
to:yzhshi
请问能给出具体操作方法吗？我不会

 

K

kingdeezj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-24

• #5

没有用的，注册为系统服务就算在CTRL+ALT+DEL里不能显示出来。
但只要运行《系统信息》察看《软件环境》，一样可以找到。

 

M

messah

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-24

• #6

我只要在按键后看不出来就可以了。而且是98环境下，请各位能尽快给出代码，谢谢。

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-24

• #7

核心代码如下：
uses TLhelp32;
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';

RegisterServiceProcess(GetCurrentProcessID, 1)

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-24

• #8

作为服务运行，就不显示了。

 

M

messah

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-24

• #9

to yzhshi:
请问以上代码加在程序的哪里？谢谢。调试通过，立即给分。

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-24

• #10

这个总行了吧？其实上面给出来你就应该会了的。[]
unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';

implementation

{$R *.dfm}

uses TLhelp32;

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID, 1)
end;

end.

 

M

messah

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-24

• #11

to yzhshi:
谢谢，非常感谢，因为我刚学DELPHI不久，所以不熟，还请今后多多照顾，谢谢。能留个联系方式吗？今后多联系。

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-24

• #12

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1283434