강덕원 wrote:

> 단순히 작업표시줄에 안보이는 프로그램을 만들기위해 아래와 같이 코딩을 했는데요...

> (저~밑의 김종석님의 글을보고...)

> 버젓히 작업표시줄에 나타납니다.

> 어찌하면 좋습니까?

>

> unit Unit1;

>

> interface

>

> uses

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

>

> type

> TForm1 = class(TForm)

> procedure FormCreate(Sender: TObject);

> private

> { Private declarations }

> public

> { Public declarations }

> end;

>

> var

> Form1: TForm1;

>

> implementation

>

> {$R *.DFM}

>

> procedure TForm1.FormCreate(Sender: TObject);

> begin

> ShowWindow(Application.Handle, SW_HIDE);

> end;

>

> end.

>







헤헤.. 위에 방식보다는 이 방법이 좋을 겁니다.

프로젝트파일에다가요~!!!!



program Project1;



uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Windows;



{$R *.RES}

var

ExtendedStyle : Integer;



begin

Application.Initialize;

// 응용 프로그램의 확장 스타일 값을 가져 온다.

ExtendedStyle := GetWindowLong(Application.Handle, GWL_EXSTYLE);

//

SetWindowLong(Application.Handle, GWL_EXSTYLE,

ExtendedStyle OR WS_EX_TOOLWINDOW

AND NOT WS_EX_APPWINDOW);



Application.CreateForm(TForm1, Form1);

Application.Run;

end.



여렇게요...





헤헤.. 행복하셔요