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 спрятаться где-то на винте, найду вернусь...

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;

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