procedure TForm1.FormCreate(Sender: TObject); begin ShowWindow(Application.Handle, SW_HIDE); end;
有个api函数,忘记了,systeminfo...什么的,忘记了,msdn查找看看
好像有一个Application.Hide至少 MainForm.Hide 可以
楼上的不行哦。要这样: procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); end;
procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong( Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW); end;/ by LY http://lysoft.7u7.net http://liuyang.7i24.com http://lysoft.91i.net
begin ShowWindow(Handle, SW_HIDE); ShowWindow(Application.Handle, SW_HIDE); SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW); end
procedure TForm1.FormCreate(Sender: TObject); begin
ShowWindow(Application.Handle, SW_HIDE);
end;
MainForm.Hide 可以
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end;
begin SetWindowLong( Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE) or
WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
end;/ by LY http://lysoft.7u7.net http://liuyang.7i24.com http://lysoft.91i.net
ShowWindow(Handle, SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.handle, GWL_EXSTYLE)
or WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);
end