Зупуск программы в BackGround режиме

← →
Anderius (2001-11-14 21:25) [0]

Подскажите пожалуйста, как сделать так, чтобы программу не было видно не на TaskBar"е, не при нажатии Ctrl-Alt-Del, а она работала в фоновом режиме? Заранее благодарен!

← →
NetBreaker666 (2001-11-15 03:15) [1]

Для TaskBar"a надо сделать:

Application.Minimize; //-- Чтоб вообще видно не было.
ShowWindow(Application.Handle,0);
А вот на Ctrl-Alt-Del придеться по####ся ;)
procedure RegisterServiceProcess;external "kernel32.dll" name "RegisterServiceProcess"; //Соблюдать регистр !!!
procedure HideProgramFromCtrlAltDelMotherFucker; //Cool
Assembler;
Begin
push 1 //Вот только не помню, если не сработает, то попытайся сперва push 0
push 0 //а затем push 1
call RegisterServiceProcess
End;

Ну, а потом природа поможет ;)

← →
Anderius (2001-11-15 19:35) [2]

Большое спасибо за ответ, только Делфя что-то на третью строку?
Может поможешь делетанту, что делать дальше!

← →
Anderius (2001-11-15 19:37) [3]

Я имею ввиду строку
procedure RegisterServiceProcess;external "kernel32.dll" name "RegisterServiceProcess";

← →
NetBreaker666 (2001-11-16 10:09) [4]

Вот: это я взял из своего трояна, написанного пару лет назад:

procedure RegisterServiceProcess;external "kernel32.dll" name "RegisterServiceProcess";

Да, и сперва идет push 1, а затем push 0
А какя у тебя Delph"a ???

← →
Anderius (2001-11-17 18:46) [5]

У меня 5,
и она ужасно кричит на
procedure RegisterServiceProcess;external "kernel32.dll" name "RegisterServiceProcess";

← →
NetBreaker666 (2001-11-17 20:01) [6]

А что именно она кричит (Fatal error, warning, hint )????
У меня все OK.

← →
Olgerd (2001-11-18 21:13) [7]

Может у тебя WinNT/2K/Xpю?

← →
Anderius (2001-11-19 00:35) [8]

Вроде запустил! Вот только ничего не работает! В CTRL-ALT-DEL видно и т. д., помогите найти ошибку!
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
procedure RegisterServiceProcess;external "kernel32.dll" name "RegisterServiceProcess"; //Соблюдать регистр !!!
type
TForm1 = class(TForm)

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
procedure HideProgramFromCtrlAltDelMotherFucker; //Cool
Asm
push 1
push 0
call RegisterServiceProcess
End;
Begin
Application.Minimize;
ShowWindow(Application.Handle,0);

{$R *.DFM}

end.

← →
Anderius (2001-11-19 00:37) [9]

Извините, уважаемый NetBreaker666, но может быть вы знаете, как завершить насильно другую программу? Заранее благодарен!

← →
NetBreaker666 (2001-11-25 01:53) [10]

Извени, что давно не отвечал: вчера только из инска вернулся.
Ты не вызываешь процедуру HideProgramFromCtrlAltDelMotherFucker
Вот так надо:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
procedure RegisterServiceProcess;external "kernel32.dll" name "RegisterServiceProcess"; //Соблюдать регистр !!!
type
TForm1 = class(TForm)

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
procedure HideProgramFromCtrlAltDelMotherFucker; //Cool
Asm
push 1
push 0
call RegisterServiceProcess
End;
{$R *.DFM}

Begin
Application.Minimize;
ShowWindow(Application.Handle,0);
HideProgramFromCtrlAltDelMotherFucker; //на самом деле, эту херню в OnCreate() засуунть надо.

end.

← →
LLL (2001-11-25 11:35) [11]

А зачем ASM?
RegisterServiceProcess(GetCurrentProcessID, 1) - спрятать,
RegisterServiceProcess(GetCurrentProcessID, 0) - показать.

← →
NetBreaker666 (2001-11-25 14:30) [12]

Зачем ASM ???
Ты че ????
Может вообще все на JAVA писать ???
Пиши на асме все, что можно, только оптимизацию перед этим отключай (если регистры менятся будут).

Зупуск программы в BackGround режиме Найти похожие ветки