你可以把窗口最大化，然后禁止切换任务栏就行了。
procedure tform1.formcreate(sender:tobject);
var temp:integer;
begin
systemparametersinfo(SPI_SETSCREENSAVEACTIVE,1,@temp,0);
end;
procedure tform1.formclose(sender:tobject);
var temp:integer;
begin
systemparametersinfo(SPI_SETSCREENSAVEACTIVE,0,@temp,0);
end;
肯定行
