function RegisterServiceProcess(dwProcessID, dwType: integer): integer; stdcall; external 'KERNEL32.DLL'; 另外,这个函数好像在Win2000中没有。
将程序从任务栏上隐藏掉 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 );
setwindow(handle,SW_HIDE);
好像状态栏和你说的俄两个地方都没有了
如果调用能说详细点吗?谢谢。
RegisterServiceProcess(dwProcessID, 1);
另外,这个函数好像在Win2000中没有。
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); { 恢复让ctrl+alt+del发现进程 }
RegisterServiceProcess(GetCurrentProcessID,0);
function RegisterServiceProcess(dwProcessId,dwType:dword): Integer;stdcall;external 'kernel32.dll'
给我写信吧: [email protected]
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;stdcall;
external 'KERNEL32.DLL';
var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID, 1);
//隐藏
end;procedure TForm1.Button2Click(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID, 0);
//取消
end;end.
//可是分数就这么点,让我再考虑考虑.总得来说谢谢大家.
阿宽欢迎大家访问 http://akuan.yeah.net 里面有好多我自己编写的软件.
请教如何处理?
隐藏程序,请教如何处理?