我的系统是WINDOWS  ME
DELPHI 7。0中使用
implementation 
const RSP_SIMPLE_SERVICE=1; 
function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord; stdcall; external ’KERNEL32.DLL’; 
{$R *.DFM} 
procedure TForm1.formcreate(Sender: TObject); 
begin 
RegisterServiceProcess(GetCurrentProcessID,RSP_SIMPLE_SERVICE); 
end; 时候,编译通不过。
显示
“连接文件project1.exe到不存在的输出 kernel32.dll registerserviceprocess”
“unable to create process:与系统连接的设备不能正常运转”请问怎么解决?
我想通过动态加载kernel32.dll也失败
我怀疑是因为kernek32.dll文件是系统文件,其他3级应用程序不能调用?
但是既然前辈提出这种用法说明能用啊?
请问如何解决在9x内核下,怎么隐藏程序,是之不显示在CTRL+ALT+DEL 之下?

解决方案 »

  1.   

    ◇[DELPHI]程序不出现在ALT+CTRL+DEL
    在implementation后添加声明:
    function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';
    RegisterServiceProcess(GetCurrentProcessID, 1);//隐藏
    RegisterServiceProcess(GetCurrentProcessID, 0);//显示
    用ALT+DEL+CTRL看不见◇[DELPHI]程序不出现在任务栏
    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. 
      

  2.   

    seasunsky(来来往往) 我发帖子的时候,你所说的这些我都知道。
    任务栏那里我实现了而ALT+CTRL+DEL屏蔽却显示
    “连接文件project1.exe到不存在的输出 kernel32.dll registerserviceprocess”
    “unable to create process:与系统连接的设备不能正常运转”
    我已经试过多少遍了,也用了动态加载的方法,也曾经把kernel32.dll文件烤到和project同一目录下,但是都没有成功。我想问问是不是我系统的问题。
    我请教也用ME系统的朋友,有没有出现这个问题。