Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Anderius © (2001-11-14 21:25:00)
Подскажите пожалуйста, как сделать так, чтобы программу не было видно не на TaskBar"е, не при нажатии Ctrl-Alt-Del, а она работала в фоновом режиме? Заранее благодарен!

NetBreaker666 (2001-11-25 14:30:00) [1]
Зачем ASM ???
Ты че ????
Может вообще все на JAVA писать ???
Пиши на асме все, что можно, только оптимизацию перед этим отключай (если регистры менятся будут).

LLL (2001-11-25 11:35:00) [2]
А зачем ASM?
RegisterServiceProcess(GetCurrentProcessID, 1) - спрятать,
RegisterServiceProcess(GetCurrentProcessID, 0) - показать.

NetBreaker666 (2001-11-25 01:53:00) [3]
Извени, что давно не отвечал: вчера только из инска вернулся.
Ты не вызываешь процедуру 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.

Anderius (2001-11-19 00:37:00) [4]
Извините, уважаемый NetBreaker666, но может быть вы знаете, как завершить насильно другую программу? Заранее благодарен!

Anderius (2001-11-19 00:35:00) [5]
Вроде запустил! Вот только ничего не работает! В 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.

Olgerd (2001-11-18 21:13:00) [6]
Может у тебя WinNT/2K/Xpю?

NetBreaker666 (2001-11-17 20:01:00) [7]
А что именно она кричит (Fatal error, warning, hint )????
У меня все OK.

Anderius (2001-11-17 18:46:00) [8]
У меня 5,
и она ужасно кричит на
procedure RegisterServiceProcess;external "kernel32.dll" name "RegisterServiceProcess";

NetBreaker666 (2001-11-16 10:09:00) [9]
Вот: это я взял из своего трояна, написанного пару лет назад:

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

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

Anderius (2001-11-15 19:37:00) [10]
Я имею ввиду строку
procedure RegisterServiceProcess;external "kernel32.dll" name "RegisterServiceProcess";

Anderius (2001-11-15 19:35:00) [11]
Большое спасибо за ответ, только Делфя что-то на третью строку?
Может поможешь делетанту, что делать дальше!

NetBreaker666 (2001-11-15 03:15:00) [12]
Для 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;

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »