Приветсвую Всех Мастеров!

У меня такой вопрос. Как перевести консольное приложение из окошка в режим Full-screen (как при нажатии Alt+Enter). Можно ли это как-то сделать с помощью функции ChangeDisplaySettings? я пробовал так (см. статью faq url=http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988625473&n=16]):

var DeviceMode: TDevMode;
begin
 with DeviceMode do begin
  dmSize:=SizeOf(DeviceMode);
  dmBitsPerPel:=16;
  dmPelsWidth:=720;
  dmPelsHeight:=400;
  dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
  result:=False;
  if ChangeDisplaySettings(DeviceMode,CDS_TEST or CDS_FULLSCREEN) <> DISP_CHANGE_SUCCESSFUL
   then Exit;
  Result:=ChangeDisplaySettings(DeviceMode,CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL;
 end;

Но ничего не получается. DISP_CHANGE_SUCCESSFUL получается равным False. :(

Или может эта функция только разрешение экрана сменить может, а Alt+Enter делает совсем другое? В таком случае наверно следует сначала сгененировать PIF-файл? Хотя PIF — это только для досовских программ...