在NT/2000中怎么禁用Ctrl+Alt+Delete?（注意不能用gina,键盘驱动） ?誰能把這段代碼改成delphi的！(50分)

L

ljy_17

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #21

TO:stuwei
沒錯…是沒用…
TO：ALL
難道真沒有人會嗎？

 

D

drank

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-09

• #22

我这里有一个完整的例子带原码,我还没来的及研究
如果你需要 let me know drank@sohu.com

 

D

drank

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-09

• #23

i have one with source code
if u need it let me know drank@sohu.com

 

L

ljy_17

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-09

• #24

TO：drank
你用的是哪一種方法？和上面的代碼一樣的原理嗎？

gina的我已經有了（不是我想要的）…………

 

N

NowCan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-10

• #25

Delphi的代码我就有。(Delphi6)
我还想改成BCB呢。
nowcan@163.com

 

N

NowCan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-10

• #26

放在这里了，速度比较慢，对不起了。
http://www16.brinkster.com/nowcan/codes/syskey.zip

 

L

ljy_17

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-10

• #27

TO:drank,NowCan
已經給你們發了EMAIL，請查收………

 

L

ljy_17

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-11

• #28

TO:NowCan
你好…
非常感謝你的幫助和關注，但你的代碼不是我想要的，你用的也是替換gina.dll！我已經有了！
再次表示感謝！

 

L

ljy_17

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-11

• #29

TO:NowCan兄
我看一下你主頁，發現你是bcb高手…能否把上面的代碼改成D的…
上面的代碼不會出現閃爍現象……靜候佳音………

 

L

ljy_17

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #30

有沒有搞錯啊？人到哪裡去？？？？？？

 

L

ljy_17

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #31

TO:drank
謝謝你！已經收到你代碼，但不是我想要的………
你發來的代碼是一個進程的隱藏！（我已有）…
再次表示感謝……

 

L

ljy_17

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #32

是不是DFW沒人會BCB啊？？？？

 

S

smilboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #33

up

 

H

Hongjiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-17

• #34

windows 2000/XP中，默认情况下只有administrator才有debug特权，也就是说
上面的代码只能运行在administrator用户下，在power user下都会失败，除非
在policy编辑器里将debug特权赋给其他用户。

 

爱

爱元元的哥哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-19

• #35

关注！

 

L

ljy_17

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-27

• #36

人哪？
沒有人會……………………………？？？？？

版主哪去了？都回家過年了嗎？

 

J

jeary

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-29

• #37

up

 

C

copy_paste

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-29

• #38

呵，都回家过年了。。。
那么急干嘛。。。

 

F

fish1840

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-29

• #39

有没有哪位大侠改写出来了，如果没有我打算过年回家把试着它改写一下（但是楼主不要报
太大的希望，水平有限，可能改不出来）

 

L

ljy_17

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-29

• #40

TO:fish1840
謝謝你！
我也試著改寫，但是不知怎麼搞的，連桌面上存在的窗口"SAS window"都找不到！
我快氣瘋了………………代碼如下

function EnumWindowsProc(AHWnd: HWnd;
LPARAM: lParam): boolean; stdcall;
var
classbuf:array[0..254] of char;
WndClassName: array[0..254] of char;
begin
GetWindowText(AHWnd, @ClassBuf,sizeof(ClassBuf));
GetClassName(AHWnd, @WndClassName,sizeof(WndclassName));
if (pos('SAS Window',classbuf)>0)or(pos('SAS Window',wndclassname)>0) then
begin
form1.ListBox1.Items.Add(classbuf);
form1.ListBox1.Items.Add(wndclassname);
Result :=false;
end;
Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
var hDesk:Thandle;
begin
hDesk:=OpenDesktop('Winlogon',0,false,MAXIMUM_ALLOWED);
EnumDesktopWindows(hDesk,@EnumWindowsProc,0);
end;