Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];

Вниз

Зупуск программы в 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 писать ???
Пиши на асме все, что можно, только оптимизацию перед этим отключай (если регистры менятся будут).



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.58 MB
Время: 0.019 c
14-75657
Serega__2
2001-11-29 10:40
2002.01.24
Господа, а что с rxlib`ом случилось?


14-75681
VID
2001-11-25 22:41
2002.01.24
У кого есть WIN XP? Опишите pls...


1-75547
Yuraz
2002-01-04 19:13
2002.01.24
Не получается стереть рисунок с формы, делаю так:


7-75699
BigFoot
2001-10-12 12:24
2002.01.24
Опять сервисы !!!


1-75544
Voland
2002-01-06 00:38
2002.01.24
Отключение комбинацый клавиш, и...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский