uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Windows;
{$R *.RES}
var
Ex_Style : Integer;
begin
Application.Initialize;
Ex_Style := GetWindowLong(Application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle, GWL_EXSTYLE, Ex_Style OR
WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
<!--CodeE-->
프로그램의 프로젝트 파일있죠? 그 파일에 코드를 추가해주시면 됩니다.
<!--CodeS-->
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Windows;
{$R *.RES}
var
Ex_Style : Integer;
begin
Application.Initialize;
Ex_Style := GetWindowLong(Application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle, GWL_EXSTYLE, Ex_Style OR
WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
<!--CodeE-->
이런식으로 해주시면 됩니다 -
즐코하세요 ^^