Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.25;
Скачать: CL | DM;

Вниз

Подскажите плз как вырубить Ctrl+Alt+Del   Найти похожие ветки 

 
SerVS - S   (2002-02-18 19:55) [0]

Уважаемые мастера, подскажите плиз как вырубить Ctrl+Alt+Del. Нужно вырубить клаву, BlockInput отлично работает, только снимается он слишком легко :(


 
VuDZ ©   (2002-02-18 20:50) [1]

никак. по С2 это не возможно. только если переписать свою GINA.dll


 
Anonymouz   (2002-02-20 04:53) [2]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Timer2: TTimer;
procedure FormShow(Sender: TObject);
procedure FormDeactivate(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
with Form1 do
SetWindowPos(Handle,
HWND_TOPMOST,
Left,
Top,
Width,
Height,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

procedure TForm1.FormDeactivate(Sender: TObject);
begin
with Form1 do
SetWindowPos(Handle,
HWND_TOPMOST,
Left,
Top,
Width,
Height,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
with Form1 do
SetWindowPos(Handle,
HWND_TOPMOST,
Left,
Top,
Width,
Height,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Brush.Style := bsClear;
Form1.BorderStyle := bsNone;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.Top:=form1.Top+2;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
form2.show;
end;

end.





unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm2 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
procedure FormShow(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormDeactivate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.FormShow(Sender: TObject);
begin
with Form1 do
SetWindowPos(Handle,
HWND_TOPMOST,
Left,
Top,
Width,
Height,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
with Form1 do
SetWindowPos(Handle,
HWND_TOPMOST,
Left,
Top,
Width,
Height,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

procedure TForm2.FormDeactivate(Sender: TObject);
begin
with Form1 do
SetWindowPos(Handle,
HWND_TOPMOST,
Left,
Top,
Width,
Height,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin

timer1.Enabled:=false;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
label1.Caption:="YOUR DISC WILL FORMATTED";
end;

end.



из старых запасов...



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

Текущий архив: 2002.04.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
3-80743
Shaman
2002-04-04 00:24
2002.04.25
Вопрос к знатокам InterBase


14-81062
FELLINI
2002-03-20 07:24
2002.04.25
Заблокировать программу


1-80925
Fareader
2002-04-11 11:23
2002.04.25
Русский язык в F1Book


3-80817
Zak
2002-04-05 08:38
2002.04.25
Печать МЕМО записей в Qreport


14-81067
fishka
2002-03-20 14:29
2002.04.25
Переписать игрушку с компашки с защитой. Можно ли это сделать, чтобы работало корректно?