Скачать: CL | DM;

Ctr+Alt+Del в 98 и чтобы в 2к не было глюков   Найти похожие ветки 

← →
Advokat   (2002-04-01 21:35) [0]

Я скрывая программу от комбинации Ctr+Alt+Del, в 98 все нормально работаетю Как мне сделать так чтобы в 2000 она не срабатывала ...
Лело в том чтобы скрыть от Ctr+Alt+Del нада описать функцию
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external "KERNEL32.DLL"; при этом если эту прогу запустить под 2000 то оно выдает ошибку и не запускается ..
bear@astral.ntu-kpi.kiev.ua

---

← →
Vuk ©   (2002-04-01 21:48) [1]

Такой функции в NT-based системах нет (и не надо). Да и прятаться там особо ни к чему. Проще сервис написать.

---

← →
SeF ©   (2002-04-02 03:21) [2]

определяй под w98 или 2k и поступай соответственно, а метод как в 2k спрятаться где-то на винте, найду вернусь...

---

← →
Walker ©   (2002-04-02 04:03) [3]

var
RegProcess: function (p1, p2:integer): integer; stdcall;
hDllKernel: HInst;

procedure TForm1.Button1Click(Sender: TObject);
begin
if GetVersion >= $80000000 then begin
hDllKernel := LoadLibrary("kernel32.dll");
RegProcess := GetProcAddress(hDllKernel, "RegisterServiceProcess");
RegProcess(StrToInt(Edit1.Text), StrToInt(Edit2.Text));
end;
end;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c