Реализация полноэкранного приложения в консоли.

[Alt]

Для того, что бы понять, что я хочу сделать, создайте любую консольную программу.
Запустив .exe файл, намите Alt+Enter.

сделав это, я решил проблему развертывания на своем компьютере (далее это приложение всегда запускается полнооконным), но при запуске на других компьютерах нужно повторить эти шаги. Как можно автоматизировать этот процесс?

[Ulex]

Может быть при установке этого приложения в реестре попытаться прописать чтоб система его запускала в полном экране:

Например:
HKEY_CURRENT_USER\Console\C:_main_a ssembler_proga1_PROGA1.EXE
Параметр FullScreen Шестнадцатеричный - значение =1.

[Alt]

С реестром, к сожалению, работать не умею. Можете предоставить строки (желательно с комментариями)?

Кстати, местонахождение ехе-файла может быть неизвестным...

[Alt]

Я вот нашел реализацию:http://www.sources.ru/wiki/doku.php?...een_in_console
Нельзя-ли менее нагроможденно?

[Ulex]

Если нахождение exe неизвестно, то с реестром вариант отпадает, так как там в кусте путь указывается.

А по поводу SetConsoleDisplayMode и GetConsoleDisplayMode - по моему стоит попробовать. Сам их не юзал никогда (не зря они недокументированные). Да и там вроде не так уж и нагромождённо.
Ну и copy/paste в помочь.

[Alt]

Попробовал убрать лишнее (т.к. все современные версии windows на ядре NT, то остальные я попросту отмел), получилось вот что:

function GetConsoleDisplayMode(var lpdwMode: DWORD): Boolean;
type
  TGetConsoleDisplayMode = function(var lpdwMode: DWORD): BOOL;
  stdcall;
var
  hKernel: THandle;
  GetConsoleDisplayMode: TGetConsoleDisplayMode;
begin
  Result := False;
  hKernel := GetModuleHandle('kernel32.dll');
  if (hKernel > 0) then
  begin @GetConsoleDisplayMode :=
      GetProcAddress(hKernel, 'GetConsoleDisplayMode');
    if Assigned(GetConsoleDisplayMode) then
    begin
      Result := GetConsoleDisplayMode(lpdwMode);
    end;
  end;
end;
function SetConsoleDisplayMode(hOut: THandle; dwNewMode: DWORD;
  var lpdwOldMode: DWORD): Boolean;
type
  TSetConsoleDisplayMode = function(hOut: THandle; dwNewMode: DWORD;
  var lpdwOldMode: DWORD): BOOL;
  stdcall;  
var  
  hKernel: THandle;  
  SetConsoleDisplayMode: TSetConsoleDisplayMode;  
begin  
  Result := False;
  hKernel := GetModuleHandle('kernel32.dll');  
  if (hKernel > 0) then  
  begin @SetConsoleDisplayMode :=  
      GetProcAddress(hKernel, 'SetConsoleDisplayMode');
    if Assigned(SetConsoleDisplayMode) then  
    begin  
      Result := SetConsoleDisplayMode(hOut, dwNewMode, lpdwOldMode);  
    end;  
  end;  
end;          
function SetConsoleFullScreen(bFullScreen: Boolean = True): Boolean;
var  
  dwOldMode, dwNewMode: DWORD;
  hOut: THandle;  
begin
// if Win32Platform = VER_PLATFORM_WIN32_NT
    dwNewMode := Ord(bFullScreen);
    GetConsoleDisplayMode(dwOldMode);
    hOut := GetStdHandle(STD_OUTPUT_HANDLE);
    Result := SetConsoleDisplayMode(hOut, dwNewMode, dwOldMode);
end;

У меня на Win Xp работает ) Достаточно в самом начале ввести SetConsoleFullScreen;