Показать сообщение отдельно
  #2  
Старый 04.12.2006, 14:01
Аватар для GeneTic
GeneTic GeneTic вне форума
Прохожий
 
Регистрация: 24.11.2006
Сообщения: 15
Репутация: 10
По умолчанию

Ты можешь сделать прогу невидимой для Ctrl+Alt+Del...а то лично я недогнал как ты с нерабочей клавы в Edit будешь пароль вводить...

До implementation вписываешь:

function RegisterServiceProcess(dwProcessID, dwType: integer): integer;
stdcall; external 'KERNEL32.DLL';

А потом:

procedure TForm1.FormCreate(Sender: TObject);
begin
if not(csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID, 1);
end;

Причем "1" в конце - это "невидимость" , а "0", соответственно, "видимость"

ЗЫ: сам непробывал, но должно сработать...
Ответить с цитированием