Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ctr+Alt+Del в 98 и чтобы в 2к не было глюков [D4, D5, D6, WinME, NT4, Win2k, WinXP]

Advokat © (2002-04-01 21:35:00)
Я скрывая программу от комбинации 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

Walker (2002-04-02 04:03:00) [1]
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;

SeF (2002-04-02 03:21:00) [2]
определяй под w98 или 2k и поступай соответственно, а метод как в 2k спрятаться где-то на винте, найду вернусь...

Vuk (2002-04-01 21:48:00) [3]
Такой функции в NT-based системах нет (и не надо). Да и прятаться там особо ни к чему. Проще сервис написать.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »