Защитить процесс от terminate

[ZeroX]

Братья программеры подскажите, как защитить процесс от выгрузки

[moderator]

Да в принципе-то и никак.

ИМХО.

[goro]

:?: Братья программеры подскажите, как защитить процесс от выгрузки

Мне скоро по мылу придет исходняк оот другана, правда на С++ но ничего, разберемся!!!

[ZeroX]

Ну давай разберемся, намылишь если, что

[Sebas]

В 98 никак в НТ запускай как SYSTEM или приоритетом больше чем интерактивный юзер

[ZeroX]

Я так понял запускать через CreateProcess... или через OpenProcess, константы мона!!!

[Sebas]

Ищи CreateProcessWithLogon

[moderator]

Да в принципе-то и никак.

ИМХО.

Видать, чуточку погорячился

[ZeroX]

Нечего не нашел, можно подробнее о CreateProcessWithLogon

[iolaus]

Public Declare Function CreateProcessAsUser Lib "advapi32.dll" Alias "CreateProcessAsUserA" (ByVal hToken As Long, ByVal lpApplicationName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As SECURITY_ATTRIBUTES, ByVal lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As String, ByVal lpCurrentDirectory As String, ByVal lpStartupInfo As STARTUPINFO, ByVal lpProcessInformation As PROCESS_INFORMATION) As Long

[ZeroX]

Спасибо

[goro]

В принципе и я вот нашел но сам ничего не разобрался Может вы поймете.

function CreateNewProcess:Boolean;
var
ACL : _ACL;
SD : _SECURITY_DESCRIPTOR;
SA : _SECURITY_ATTRIBUTES;
si : _STARTUPINFOA;
pi : PROCESS_INFORMATION;
begin
Result:=false;

// Инициализация структуры ACL (Access Control List)
// В случае удачи у нас будет ACL, не содержащая ни одного элемента
// защиты, т.е. запрещающая доступ к объекту всем.
if not InitializeAcl(/////////////////)
then ShowMessage('InitializeAcl'+#13#10+SysErrorMessage(GetLastError));

// Проверяем ACL на корректность (не обязательно)
if not IsValidAcl(ACL) then exit;

// Инициализация структуры SD (Security Descriptor)
// После инициализации SD будет разрешать доступ к объекту для всех
if not InitializeSecurityDescriptor(///////////////////////////)
then ShowMessage('InitializeSecurityDescriptor'+#13#10+SysErrorMessage(GetLastError));

// Добавляем к описателю безопасности наш ACL
// Теперь SD запрещает доступ всем
if not SetSecurityDescriptorDacl(//////////////////)
then ShowMessage('SetSecurityDescriptorDacl'+#13#10+SysErrorMessage(GetLastError));

// Опять проверка на корректность структуры
if not IsValidSecurityDescriptor(@SD) then exit;

// Заполняем структуру SA (Security Attributes)
ZeroMemory(//////////////);
sa.nLength:=SizeOf(sa);
sa.bInheritHandle:=false;
// Ссылка на наш дескриптор безопасности
sa.lpSecurityDescriptor:=@SD;

// Ну и наконец, создаем новый процесс с новыми атрибутами безопасности
ZeroMemory(////////////);
si.cb:=SizeOf(si);

if not CreateProcess(nil,PChar(////////////////////////////////)
then ShowMessage('CreateProcess'+#13#10+SysErrorMessage(GetLastError));

Result:=true;
end;

[ZeroX]

Спасибо конечно, но я в делфях не сильно разбираюсь