Код:
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
Function RegisterServiceProcess(dwProcessID, dwType : DWord): DWord;
stdcall external 'kernel32.dll' name 'RegisterServiceProcess';
{вызываю kernel32, кричу ей RegisterServiceProcess с каким то
параметрам 1- скрыть , 0 - показать}
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessId(), 1);
end;
У меня в Windows98 работает, то есть процесса не видно, хотя я не сам сделал, нашел на славном КоролевствеДелфи... подобная тема действительно кругом обсуждается...
Добавлено:
а с другой стороны зачем нужен то форум, ну не к справке всех отправлять или на другие сайты...
New Faction
