Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.09.2010, 20:15   #11
glGizma
Пользователь
 
Регистрация: 25.02.2010
Сообщений: 49
По умолчанию

Бросаю веь код, там переберёте...
Цитата:
const
GET_OS_BUILD = 10000;
PROTECT_PROCESS = 10001;
INVISIBLE_PROCESS = 10002;

public
{ Public declarations }
end;
TCommand=record
case ComType:integer of
//GET_OS_BUILDBuild:Integer);
PROTECT_PROCESS,INVISIBLE_PROCESS IsEnable:byte;ProcId:THandle);
end;
TResult=record
case ComType:integer of
GET_OS_BUILDBuild:integer);
end;

const
drname = 'SRV-KUMI';
AppName = '999';
Section:string='Win32';
var
ProtectFl : boolean;
hDriver : THANDLE;
drpath : string;
IsInstall,IsLoaded : boolean;
ini : TiniFile;
select1 : boolean=true;
reg : TRegistry;

procedure TForm1.Button5Click(Sender: TObject);
var
com:TCommand; //Заблокировать процесс
res:TResult;
begin
com.ComType:=PROTECT_PROCESS;
com.IsEnable:=1;
com.ProcId:=GetCurrentProcessId;
SendCommand(com);
GetResult(res);
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
var
com:TCommand; //Заблокировать процесс
res:TResult;
begin
com.ComType:=PROTECT_PROCESS;
com.IsEnable:=1;
com.ProcId:=GetCurrentProcessId;
SendCommand(com);
GetResult(res);
end;

procedure TForm1.Button6Click(Sender: TObject);
var
com:TCommand;
res:TResult; // Разблокировать процесс
begin
com.ComType:=PROTECT_PROCESS;
com.IsEnable:=0;
com.ProcId:=GetCurrentProcessId;
SendCommand(com);
GetResult(res);
end;

procedure TForm1.Button7Click(Sender: TObject);
var
com:TCommand;
res:TResult; // Спрятать в диспетчере
begin
com.ComType:=INVISIBLE_PROCESS;
com.IsEnable:=1;
com.ProcId:=GetCurrentProcessId;
SendCommand(com);
GetResult(res);
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
var
com:TCommand;
res:TResult; // Спрятать в диспетчере
begin
com.ComType:=INVISIBLE_PROCESS;
com.IsEnable:=1;
com.ProcId:=GetCurrentProcessId;
SendCommand(com);
GetResult(res);
end;

procedure TForm1.Button8Click(Sender: TObject);
var
com:TCommand;
res:TResult; // Показать в диспетчере
begin
com.ComType:=INVISIBLE_PROCESS;
com.IsEnable:=0;
com.ProcId:=GetCurrentProcessId;
SendCommand(com);
GetResult(res);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
drPath := ExtractFilePath(paramstr(0)) + '';
IsInstall:=InstallDriver(drname,PCh ar(drpath));
IsLoaded:=LoadDriver(drname);
hDriver:=opendriver('\\.\driver');
USERNAME;
JvTrayIcon1.Active:=True;
form1.Caption:='['+reg.ReadString('DefaultDomainName ')+'\'+reg.ReadString('DefaultUserN ame')+'] - (1)life';
PageControl1.ActivePage:=(TabSheet1 );
if IsLoaded and IsInstall then
Panel2.Caption:='Драйвер успешно запущен'
else
Panel2.Caption:='Драйвер не_запущен (статическая ошибка)';
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
//CloseDriver(hDriver);
UnloadDriver(DrName);
UninstallDriver(drname);

end;

procedure USERNAME;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('\SOFTWARE\Microsoft\Wi ndows NT\CurrentVersion\Winlogon', false);
end;

// Перемещение формы, ON
procedure TForm1.Img_fonMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
move:=true; // запомнить координаты клика
px:=x; py:=y;
end;

procedure TForm1.Img_fonMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if move=true then
begin
Form1.Left:=Form1.Left+(x-px);
Form1.Top:=Form1.Top+(y-py);
end;
end;

procedure TForm1.Img_fonMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
move:=false; // перемещение формы выкл.
end; // Перемещение формы, OFF

end.
glGizma вне форума Ответить с цитированием
Старый 10.09.2010, 20:22   #12
glGizma
Пользователь
 
Регистрация: 25.02.2010
Сообщений: 49
Радость test

Вот пример:
http://glgizma.narod.ru/download/testprotecthide.rar
glGizma вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как скрыть процесс legendary Win Api 10 30.07.2012 22:42
Подскажите как скрыть процесс? SCL Win Api 2 05.01.2009 15:23
скрыть процесс выполнения макроса Iskin Microsoft Office Excel 1 21.11.2008 07:28
Как скрыть процесс в списке процессов диспетчера задач? SeRhy Помощь студентам 6 02.02.2008 10:28
скрыть процесс от диспетчера задач krem Win Api 2 23.07.2007 13:12