请问怎样用DELPHI编个运行时WIN9X看不到的程序，只有最后100分，全给你们了。

Question

只能写在任务栏和按CTRL＋ALT＋DEL看不见的东东，实现方法，也有答案，检索一下吧，
让WIN9X看不见，不可能，除非你用LINUX或其他操作系统 :)

Answer 1

不要乱用啊！！！！！！！！！！！！
uses
   TLhelp32;
type
   function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;
         stdcall; external 'KERNEL32.DLL';
.....  
SetWindowLong(window,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
RegisterServiceProcess(GetCurrentProcessID, 1);
.....

Answer 2

type
  function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;
        stdcall; external 'KERNEL32.DLL';
...
Application.Minimize;
RegisterServiceProcess(GetCurrentProcessID, 1);
ShowWindow(application.Handle, SW_HIDE);
...

Answer 3

uses
  TLhelp32;
type
  function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;
        stdcall; external 'KERNEL32.DLL';
.....  
SetWindowLong(window,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
RegisterServiceProcess(GetCurrentProcessID, 1);
..... 

Answer 4

procedure TForm1.FormCreate(Sender: TObject);
var
  style : integer;
begin
     
         style := GetWindowLong(Application.Handle, GWL_EXSTYLE );
          style := style or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW;
          SetWindowLong(Application.Handle, GWL_EXSTYLE, style );
          RegisterServiceProcess(GetCurrentProcessID, 1);
          ShowCursor(False);
    end;

Answer 5

procedure TForm1.FormCreate(Sender: TObject);
var
  style : integer;
begin
    
        style := GetWindowLong(Application.Handle, GWL_EXSTYLE );
          style := style or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW;
          SetWindowLong(Application.Handle, GWL_EXSTYLE, style );
          RegisterServiceProcess(GetCurrentProcessID, 1);
          
    end; 

Answer 6

你说的是按Ctrl+Alt+Del看不见，还是要个透明窗口呢？

Answer 7

你说的是按Ctrl+Alt+Del看不见，还是要个透明窗口呢？ E-mail:[email protected]

Answer 8

自己定义消息的循环，GetMessage,使用大的case选择并且使用RegisterServiceProcess如果你不怕麻烦的话！自己分发消息记住别忘了分发程序的结束消息WM_DESTROY。