저두 어디선가 본 팁이 있길래 올려 드립니다. 참고하세요..



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;



type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

var

HTaskbar : HWND;

OldVal : LongInt;

begin

TRY

//Find handle of TASKBAR

HTaskBar:=FindWindow('Shell_TrayWnd',nil);

//Turn SYSTEM KEYS off

SystemParametersInfo (97, Word (True), @OldVal, 0) ;

//Disable the taskbar

EnableWindow(HTaskBar,False);

//Hide the taskbar

ShowWindow(HTaskbar,SW_HIDE);

FINALLY

With FORM1 do begin

BorderStyle :=bsNone;

FormStyle :=fsStayOnTop;

Left :=0;

Top :=0;

Height :=Screen.Height;

Width :=Screen.Width;

end;

END{FINALLY}

end;



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var

HTaskbar : HWND;

OldVal : LongInt;

begin

//Find handle of TASKBAR

HTaskBar:=FindWindow('Shell_TrayWnd',nil);

//Turn SYSTEM KEYS Back ON

SystemParametersInfo (97, Word (False), @OldVal, 0);

//Enable the taskbar

EnableWindow(HTaskBar,True);

//Show the taskbar

ShowWindow(HTaskbar,SW_SHOW);

end;



procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if Key = VK_ESCAPE then

Close;

end;



홍재민 wrote:

> 안녕하세요 델파인 여러분

>

> 다름이 아니라 게임방에서 알바 하는데요

>

> 클라이언트를 관리 하는 프로그램이 참 마음에 드네요.^^

>

> 어떤 부분이 마음에 드냐면요..전체 화면을 깜깜해지고 아무것도 보이지도 않고

>

> 실행한 프로그램만 보이고...패스워드와 아이디만 받구로 되어 있고..

>

> 이게 어떻게 해서 이리 되는거죠?

>

>