// 아래 소스는 Ctrl-Alt-Del, Alt-Tab, Ctrl-Esc 입력을 막고 푸는 소스입니다
// 또한 "시작" 버튼을 화면에 나타나지 않게 하거나 또는 Disabled 시키는
// 루틴도 포함되어 있습니다
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure DlsableStartButton(Force: Boolean);
begin
if Force then
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'Button',nil), False)
else
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'Button',nil), True);
end;
procedure hideStartbutton(visi: boolean);
var
Tray, Child: HWnd;
c: array [0..127] Of Char;
s: String;
Begin
// 윈도우즈 task bar 의 핸들을 찾는다
Tray := FindWindow('Shell_TrayWnd', nil);
// task bar의 child들 중에서 button 핸들을 찾는다
Child := GetWindow(Tray, GW_CHILD); // task bar의 child 핸들중 하나를 리턴
while Child <> 0 Do
begin
// windows의 클래스명을 구해서 Button 이면...
if GetClassName(Child, c, SizeOf(c)) > 0 Then
Begin
s := StrPas(c);
if UpperCase(s) = 'BUTTON' Then
begin
if visi Then
ShowWindow(Child, 1) // 보이기
else
ShowWindow(Child, 0); // 감추기
end;
end;
// 만약 Button 윈도우를 찾지 못하면 sibling 윈도우를 찾는다
Child := GetWindow(Child, GW_HWNDNEXT);
end
end;
procedure TForm1.Button1Click(Sender: TObject);
var
dummy : integer;
begin
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @dummy, 0);
// "시작" 버튼 감추기
hideStartbutton(False);
// "시작" 버튼 Disable
// DlsableStartButton(True);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
dummy : integer;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @dummy, 0);
// "시작" 버튼 보이기
hideStartbutton(True);
// "시작" 버튼 Enable
// DlsableStartButton(False);
end;
end. |
|
