如何让一个DELPHI程序不显示的执行(任务栏和CTRL+SHIFT+DELETE时看不到)(200分)

lumin · 2000-05-16

如何让一个DELPHI程序不显示的执行(任务栏和CTRL+SHIFT+DELETE时看不到),望各位大虾赐教

温柔一刀 · 2000-05-16

用CTRL+ALT+DELETE搜索一下,至少有几十个答案吧!

wjiachun · 2000-05-16

如果是Win9x，则在主程序的implementation前面加上一句： function RegisterServiceProcess(dwPID

Word;dwType

Word):boolean; StdCall;External 'Kernel32.DLL'; 然后可以在Form1.Create和Form1.Close里面分别用下面两句来注册服务或取消： RegisterServiceProcess(0,1);{隐藏} RegisterServiceProcess(0,0);{解除} NT好像不行

温柔一刀 · 2000-05-16

对不起,用"隐藏"等关键字搜索比较多. 比如: http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=245153 1.希望大家先搜索问题,后提问 2.不要把分数加给我,谢谢

爱情鸟 · 2000-05-16

本人学得也不算太好。 但我想提点我的想法。 不知你能不能用delphi把ctrl+shift+alt三键屏蔽掉？ 如果这样我可也有办法。

xman · 2000-05-16

屏蔽三键 要使系统的热启动键（Ctrl+Alt+Del）失效，使用以下语句 SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0); 要恢复系统的热启动键（Ctrl+Alt+Del），使用以下语句 SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);

OpuBF · 2000-05-17

Application.MainForm.Visible := False;

DPET · 2000-05-17

You can do it by shielding the keys("CTRL+ALT+DEL")

cHengyAng · 2000-05-17

任务栏不显示,在 FormCreate首句加：  SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); 屏蔽热启动键（Ctrl+Alt+Del）语句： SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0); 注意退出时, 在FormCloseQuery 恢复热启动键： SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);

bq.xu · 2000-05-19

我同意wjiachun的做法！

xlf · 2000-05-21

我去查一下资料，如需要请联系：   xxz007@yeah.net

xlf · 2000-05-21

不显示在任务栏和他们的一样！另一个再查一下.

Fudei · 2000-05-21

wjiachun + cHengyAng OK

黄耀彰 · 2000-05-21

搜索一下就不用浪费分了。

jingtao · 2000-05-23

在implementation后添加声明:  function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';  RegisterServiceProcess(GetCurrentProcessID, 1);//隐藏  RegisterServiceProcess(GetCurrentProcessID, 0);//显示 用ALT+DEL+CTRL看不见 如何写一个在Win9x、WinNT下通用的“隐身程序”: 修改dpr文件 uses windows var ExtendedStyle : Integer; begin Application.Initialize; //============================================================== ExtendedStyle := GetWindowLong (Application.Handle, GWL_EXSTYLE); SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW); //=============================================================== Application.CreateForm(TForm1, Form1); Application.Run; end.

xman · 2000-05-24

>>GetWindowLong (Application.Handle, GWL_EXSTYLE); >>SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR >>WS_EX_TOOLWINDOW >>AND NOT WS_EX_APPWINDOW); setwindowlong不行,仔细观察一下就能发现,窗口并没有消失,只是隐藏在 窗口的左下脚,有任务栏时被遮住,如果隐藏任务栏就能看得很清楚.

wjiachun · 2000-07-27

时间太久，强制结束。   wjiachun

如何让一个DELPHI程序不显示的执行(任务栏和CTRL+SHIFT+DELETE时看不到)(200分)

lumin

Unregistered / Unconfirmed

温柔一刀

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

温柔一刀

Unregistered / Unconfirmed

爱情鸟

Unregistered / Unconfirmed

xman

Unregistered / Unconfirmed

OpuBF

Unregistered / Unconfirmed

DPET

Unregistered / Unconfirmed

cHengyAng

Unregistered / Unconfirmed

bq.xu

Unregistered / Unconfirmed

xlf

Unregistered / Unconfirmed

xlf

Unregistered / Unconfirmed

Fudei

Unregistered / Unconfirmed

黄耀彰

Unregistered / Unconfirmed

jingtao

Unregistered / Unconfirmed

xman

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Similar threads