小弟最近寫的程式，需要在開機時讓程式自動執行。 (在 win98中) 因此利用以前所學到的隱藏程式的方式來達成。 一、 showwindow(Handle, SW_HIDE); 二、 function RegisterServiceProcess(dwProcessID, dwType: DWord): DWord; stdcall; external 'KERNEL32.DLL'; RegisterServiceProcess(0, $00000001); 試了這二個方法，但是還是不行。 因為一開機會先去執行 windows 的程式，接下來才是我自己的程式，然後這時程式才會由 ctrl alt del 的關閉程式 列表中消失。 這樣，使用者有很充份的時間關閉我的程式。 請問應該怎麼解決這個問題，我不能讓使用者關閉我的程式。 謝謝。 ________________________ 「有時候你以為天要塌下來了，其實是因為你站歪了！」

------
________________________
「有時候你以為天要塌下來了，其實是因為你站歪了！」

引言: 小弟最近寫的程式，需要在開機時讓程式自動執行。 (在 win98中) 因此利用以前所學到的隱藏程式的方式來達成。 一、 showwindow(Handle, SW_HIDE); 二、 function RegisterServiceProcess(dwProcessID, dwType: DWord): DWord; stdcall; external 'KERNEL32.DLL'; RegisterServiceProcess(0, $00000001); 試了這二個方法，但是還是不行。 因為一開機會先去執行 windows 的程式，接下來才是我自己的程式，然後這時程式才會由 ctrl alt del 的關閉程式 列表中消失。 這樣，使用者有很充份的時間關閉我的程式。 請問應該怎麼解決這個問題，我不能讓使用者關閉我的程式。 謝謝。 ________________________ 「有時候你以為天要塌下來了，其實是因為你站歪了！」

是不是要寫網咖的管理程式? ～～～Delphi K.Top討論區站長～～～

是的 ^^ ________________________ 「有時候你以為天要塌下來了，其實是因為你站歪了！」

------
________________________
「有時候你以為天要塌下來了，其實是因為你站歪了！」

Put your program name into registery. The answer you will find in everywhere

很爛的方法: 若是在Software\Microsoft\Windows\CurrentVersion\Run下RUN 一個aaa.bat好了,先用寫程式(不開Form的那種)如 HWND hwnd1=FindWindow("tty",NULL); EnableWindow(hwnd1,false); Sleep (500); 此程式叫做bbb.exe好了 那在aaa.bat批次檔中加入bbb.exe 如下 @ECHO OFF xxx1.bat BBB.exe xxx2.bat ............... 雖然方法爛不過很好用,記得把AAA.bat的捷徑設最小化 客人的賤手按也關不掉, 僅供參考而以 --==多看.多學.多聽==--

------
--==多看.多學.多聽==--

原來有這些方法啊，小弟受教了。 我今天也想到一個方法，也是很爛。 也是用二個檔案的方式。 a.exe -> 網咖程式 b.exe -> 一個很小的console application 一執行就是利用user32.dll鎖鍵盤滑鼠，程式很小只有 8kb， ctrl alt del 按下去看都看不到，也沒辦法按。 直到網咖程式執行到，網咖程式再利用sendmessage，送 wm_close 給 b.exe，順便解開。 這樣就可以順利執行了。 ^^ function BlockInput(fBlockInput: Boolean): DWORD; stdcall; external 'user32.DLL'; BlockInput(True); BlockInput(False); ****************** (方法很爛，不過也是很好用。) 不知道還有沒有其它方法… ^^ ________________________ 「有時候你以為天要塌下來了，其實是因為你站歪了！」

------
________________________
「有時候你以為天要塌下來了，其實是因為你站歪了！」

kunying兄與HomeSound兄的方法 好像目前的網咖程式都是使用累同方式 所以以下只能說 這樣的方式好像不適合使用 太累了 1 我想最最最最惡質做法將系統的explorer.exe使用pe程式改寫 這樣也累同 病 毒程式沒有explorer.exe無法開機至win32 也控制整個windows系統 所以你必 須在dos下置換這樣的程式 好像違反規定 不過也是高度修改 我是不建議此法 只是討論討論 2 令一個方式 寫虛擬機器或說驅動 一樣可以無法移除 一樣高難度 3 dos狸貓換太子 也就是dos下網路連接法 看你要不要連dos也控制使用包括reg等 合併大法 一樣高難度 還要寫Turpo c 這個應該可以請教天使 4 利用BOOT ROM開機成為Windows 95工作站:這個好像應該也可以問問天使 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=26264 一樣高難度 因為硬體 軟體環境 流量 遊戲 與長檔名 相容性 這種我想如果想使用系統中斷的大法就算ok 也代表os中斷 只是討論討論 ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind

kunying 兄的方法真不錯 又偷學一招,感謝囉! 不過應該還有簡單且更棒的方法吧??  --==多看.多學.多聽==--

------
--==多看.多學.多聽==--

感謝各位的指教以及jackkcg兄 和HomeSound兄 給小弟新的思考方向。 謝謝。 ________________________ 「有時候你以為天要塌下來了，其實是因為你站歪了！」

------
________________________
「有時候你以為天要塌下來了，其實是因為你站歪了！」

引言: 原來有這些方法啊，小弟受教了。 我今天也想到一個方法，也是很爛。 也是用二個檔案的方式。 a.exe -> 網咖程式 b.exe -> 一個很小的console application 一執行就是利用user32.dll鎖鍵盤滑鼠，程式很小只有 8kb， ctrl alt del 按下去看都看不到，也沒辦法按。 直到網咖程式執行到，網咖程式再利用sendmessage，送 wm_close 給 b.exe，順便解開。 這樣就可以順利執行了。 ^^ function BlockInput(fBlockInput: Boolean): DWORD; stdcall; external 'user32.DLL'; BlockInput(True); BlockInput(False); ****************** (方法很爛，不過也是很好用。) 不知道還有沒有其它方法… ^^

小弟想問的, 那如果 Windows 還沒執行到這個程式 使用者就按下 Ctrl Alt Del 鍵了呢？ 有沒辦法攔嗎？ --- Have you ever wondered what it would be like?

小弟想問的, 那如果 Windows 還沒執行到這個程式 使用者就按下 Ctrl Alt Del 鍵了呢？ 有沒辦法攔嗎？ ******************************* a.exe -> 網咖程式 b.exe -> 一個很小的console application 這二隻程式都是開機時自動執行。 b.exe 是一個 console application很小，執行檔大小只有8k。 使用者按下 Ctrl Alt Del 鍵，完全看不到。因為執行太快了。 而且一執行 b.exe 馬上就鎖 kb mouse。 這樣網咖程式就可以順利執行。 這是小弟目前用的方法。 ________________________ 「有時候你以為天要塌下來了，其實是因為你站歪了！」

------
________________________
「有時候你以為天要塌下來了，其實是因為你站歪了！」

引言: a.exe -> 網咖程式 b.exe -> 一個很小的console application 這二隻程式都是開機時自動執行。 b.exe 是一個 console application很小，執行檔大小只有8k。 使用者按下 Ctrl Alt Del 鍵，完全看不到。因為執行太快了。 而且一執行 b.exe 馬上就鎖 kb mouse。 這樣網咖程式就可以順利執行。 這是小弟目前用的方法。

謝謝 kunying 兄! 小弟再請教一下, 您的 b.exe 說是在 Windows 一開始就執行 那它是放在什麼地方？ 放在啟動？還是 Autoexec.bat？還是其它？ 小弟昨天試 Service 的方式(不過是在 Winnt 下) 發現在 Login 後, 隨即按下 Ctrl Alt Del 還是可以有作用, 因為此時 Service 還沒起來. --- Have you ever wondered what it would be like?

發現在 Login 後, 隨即按下 Ctrl Alt Del 還是可以有作用, 因為此時 Service 還沒起來. ************************** 其實我二隻程式都是開機一起執行的，和您放的地方是一樣的。 a.exe -> 網咖程式 b.exe -> console application 只是b.exe 一開機執行就是 disable kb & mouse 這時執行 b.exe 時是看不到b 的因為很小。(所以一定可以執行) 然後再執行 a.exe ，a.exe 再執行的時候會隱藏自己 and 將 kb& mouse 回復 (這時使用者若關網咖程式，就不能使用win98。因為kb & mouse都被 disable了) 因此我的動作就是強迫一定要讓網咖程式執行，不然就不能使用kb & mouse。 很惡劣，但因為我不知道有更好的方法。所以小弟只好這樣做。 ************* 至於 那個 console application 小弟是參考 http://www.din.or.jp/~tetsu/apps/junk/miniexe.lzh 去改出來的。 不過這個程式有問題，需修改一下。 或者您可以上google 打以下關鍵字，可以發現一堆資料可以參考 1、console delphi 2、miniexe delphi ________________________ 「有時候你以為天要塌下來了，其實是因為你站歪了！」

------
________________________
「有時候你以為天要塌下來了，其實是因為你站歪了！」

比較賤的方法就是自己把shell改掉，不過你的程式要接管很多事情(tasklist、traylist、輸入法監視切換、時間顯示、小喇叭...)，不建議這樣做，除非你的功力夠~不然換shell這件事可能會成為惡夢。

我的做法！這樣還沒有失誤過，僅在98有效！    

    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Registry, jpeg, ExtCtrls, Buttons, PCTimer1;    const
  HookDemo = 'KHOOK.dll';    const
  WM_HOOKCREATE = WM_USER   300;    type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
    procedure WMWindowPosChanging(var Msg: TWMWindowPosChanging); message WM_WindowPosChanging;
  public
    { Public declarations }
  end;    var
  Form1: TForm1;
  okclose: boolean;
  procedure DisableTaskMgr(bTF: Boolean);
  function IsWin95: Boolean;
  function RegisterServiceProcess(dwProcessID, dwType: DWORD): DWORD;
    stdcall; external 'KERNEL32.DLL';
  function SetHook(WinHandle: HWND; MsgToSend: Integer): Boolean; stdcall;
    external HookDemo;
  function FreeHook: Boolean; stdcall; external HookDemo;    implementation    {$R *.dfm}    function IsWin95: Boolean;
var
  OS: TOSVersionInfo;
begin
  ZeroMemory(@OS, SizeOf(OS));
  OS.dwOSVersionInfoSize := SizeOf(OS);
  GetVersionEx(OS);
  Result := (OS.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS);
end;    procedure DisableTaskMgr(bTF: Boolean);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;      reg.OpenKey('Software', True);
  reg.OpenKey('Microsoft', True);
  reg.OpenKey('Windows', True);
  reg.OpenKey('CurrentVersion', True);
  reg.OpenKey('Policies', True);
  reg.OpenKey('System', True);       // 以上幾行真是脫褲子放屁，用reg.openkey('\software\microsoft\.....\',true)是一樣的結果      if bTF = True then
  begin
    reg.WriteString('DisableTaskMgr', '1');
  end
  else if bTF = False then
  begin
    reg.DeleteValue('DisableTaskMgr');
  end;
  reg.CloseKey;
end;    procedure TForm1.WMWindowPosChanging(var Msg: TWMWindowPosChanging);  
// 這樣一來，視窗沒辦法最小化、還原、還被偷偷搬到看不到的地方了~~~保証最底層，幹嘛，我做shell的事嘛~
begin
   inherited ;
   msg.WindowPos^.hwndInsertAfter:= HWND_BOTTOM;
   msg.WindowPos^.x:=0;
   msg.WindowPos^.y:=0;
   msg.WindowPos^.cx:=screen.width;
   msg.WindowPos^.cy:=screen.Height;
end;    procedure TForm1.FormCreate(Sender: TObject);
var wndTaskbar: HWND;
begin
   RegisterServiceProcess(GetCurrentProcessID, 1);  // 把自己從ctrl alt del的列表中移除
   wndTaskbar := FindWindow('Shell_TrayWnd', nil);  // 開始工作列的handle
   if wndTaskbar <> 0 then                            
   begin
      EnableWindow(wndTaskbar, False);              // 懷疑啊，就是讓工作列無作用
      ShowWindow(wndTaskbar, SW_HIDE);              // 還把他藏起來
   end;
   DisableTaskMgr(True);                            // 更絕的方法，把工作管理員幹掉
   SetHook(Handle, WM_HOOKCREATE);                  // 掛上自己寫的keyboard hook dll..把windows等等的系統鍵給作掉
   okclose:=false;                                  // 在onCloseQuery里，CanClose:=okClose; 除非程式自己要結束，不然使用者是無法關掉的！
end;    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var wndTaskbar: HWND;
begin
   FreeHook;                                        //跟create完全相反的事，歸還鍵盤還有系統所有權
   wndTaskbar := FindWindow('Shell_TrayWnd', nil);  
   if wndTaskbar <> 0 then
   begin
      EnableWindow(wndTaskbar, True);  // Enable the taskbar
      ShowWindow(wndTaskbar, SW_SHOW); // Taskbar anzeigen
   end;
   RegisterServiceProcess(GetCurrentProcessID, 0);
   DisableTaskMgr(false);
end;    procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   canclose:=okclose;        // ALT F4就沒用了
end;    procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
   okclose:=true;            // 只有這個鍵有作用，自行加上一些認証的動作，不然乾脆別留這個門
   close;
end;