formato de pantalla

[[coso]]

..encuentras sorprendente que te hagan caso, no gallet?

[[coso]]

..ya has desobturado el condensador? como te dije?

[[coso]]

..si no sabes como hacerlo, abre otro hilo, por eso

[[Lepe]]

Acabo de probar en Delphi 6 la solución aportada por cHackAll al principio del hilo y sí se ejecuta el programa en pantalla completa.

Si no te funciona, deberías aportar pruebas (una captura de pantalla y guardarla en imageshack por ejemplo).

Saludos

[gallet]

Mirar como no se ejecuta a tamaño completo, , ahi teneis la direccion.

[[coso]]

...yo creo que nos quieres tomar el pelo

[[Lepe]]

no creo coso.

Si es que debemos ser explícitos leñe, que así no nos entendemos. En Windows XP si funciona su código, en Vista parece que no.

Saludos

[[coso]]

Una vez ejecutado, si aprietas Alt+Enter, se minimiza. Quiza no, no se , no voy a instalarme windows vista para comprobarlo...

[gallet]

Me parece que dije al principio que usaba windows vista ¿no?, sino lo aclare lo aclaro ahora, es para una cosa de clase que estoy estudiando infórmatica de gestión y no para tomaros el pelo. Pero bueno si se puede aunque sea en XP y me poneis un screenshot yo llevo el programa a clase y lo corro allí.
Gracias a todos por todo

[[Lepe]]

Yo uso Virtualización, así que verás una "ventana de windows" donde el windows XP está dentro de ella:

Siento el tamaño de las imágenes, pesan bastante

Delphi en VirtualBox:


programa a pantalla completa:


La diferencia puedes verla en la barra de tareas de windows, que en la segunda captura no está, por tanto, está ejecutándose a pantalla completa. Igual te he liado más... no sé, pero te juro por los pelos de mafalda que funciona.

Saludos

[[cHackAll]]

Empezado por coso

Una vez ejecutado, si aprietas Alt+Enter, se minimiza...

Aquí doy otra "solucion" con los apuntes de coso;

Código Delphi [-]
program Project2;
 
{$apptype console}
 
uses Windows;
 
begin
 keybd_event(VK_MENU, 0, 0, 0);
 keybd_event(VK_RETURN, $1C, 0, 0);
 keybd_event(VK_RETURN, $1C, KEYEVENTF_KEYUP, 0);
 keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);
 WriteLn('Solved with a Cruft!');
 ReadLn;
end.

Empezado por coso

...no voy a instalarme windows vista para comprobarlo...

No hay problema, yo lo tengo instalado y efectivamente no se puede "cambiar" a pantalla completa; SetConsoleDisplayMode retorna false y GetLastError retorna 87 (El parámetro es incorrecto).

Probando el Cruft que acabo de adjuntar ó en su equivalente obvio, presionando Alt+Enter el SO despliega: "Este sistema no es compatible con el modo de pantalla completa"...

Otro tip al respecto.

Empezado por gallet

Me parece que dije al principio que usaba windows vista ¿no?...

"...k se ejecute en toda la pantalla y me tape vista"

Empezado por Lepe

...te juro por los pelos de mafalda que funciona

Claro que funciona, habrá que analizar el Vista+Aero para romper esa imposibilidad.

Empezado por gallet

...si se puede aunque sea en XP y me poneis un screenshot yo llevo el programa a clase y lo corro allí...

Ahora comprendo la actitud de coso

[[Lepe]]

Empezado por cHackAll

Ahora comprendo la actitud de coso

Pues yo no comprendo la vuestra. ¿le estamos haciendo el trabajo? Pues sí.
La pregunta correcta, según mi opinión es: ¿debo seguir YO en el foro respondiendo dudas?

Señores, que cuando yo pregunto algo es para aplicarlo a un programa comercial, después YO voy a cobrar por ello; Si seguimos en esta línea no habría foro.

Si él solo usa copy&paste, eso será problema suyo y dudo que el profesor se contente con la respuesta:"lo bajé de internet, lo copié y lo pegué, yo no sé que hace"... aunque siempre puede probar para ver la cara del profe

Para ser sinceros, yo esas APIs ni las conocía; me dices el nombre y me costaría sacar el código... no quiero pensar a alguien que se inicia en delphi.

Puede que la "práctica de programación" solo consista en eso, en cambiar a pantalla completa, pero en mis tiempos me lo ponían más complicado .

Saludos

[dec]

Hola,

El hilo como para enmarcarlo. Casualmente tenía por aquí algo guardado...

Código Delphi [-]
program Project1;

{$APPTYPE CONSOLE}

uses
  Windows,
  Messages,
  SysUtils;

{
   There is no documented way to make a console application fullscreen.
   The following code works for both NT and Win9x.
   For win NT I used the undocumented SetConsoleDisplayMode and
   GetConsoleDisplayMode functions.
}


{
   Es gibt dokumentierte Möglichkeit, eine Konsolen-Anwendung per Code
   in den Vollbild Modus zu setzen.
   Folgender Code funktioniert unter NT und Win9x.
   Unter NT werden die undokumentierten SetConsoleDisplayMode und
   GetConsoleDisplayMode Funktion verwendet.
}

{
 function GetConsoleDisplayMode(var lpdwMode: DWORD): BOOL; stdcall;
   external 'kernel32.dll';
  // lpdwMode: address of variable for current value of display mode
}

function NT_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; // standard output handle
  dwNewMode: DWORD;         // specifies the display mode
  var lpdwOldMode: DWORD    // address of variable for previous value of display mode
  ): BOOL; stdcall; external 'kernel32.dll';
}

function NT_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 GetConsoleWindow: THandle;
var
  S: AnsiString;
  C: Char;
begin
  Result := 0;
  Setlength(S, MAX_PATH + 1);
  if GetConsoleTitle(PChar(S), MAX_PATH) <> 0 then
  begin
    C := S[1];
    S[1] := '$';
    SetConsoleTitle(PChar(S));
    Result := FindWindow(nil, PChar(S));
    S[1] := C;
    SetConsoleTitle(PChar(S));
  end;
end;

function SetConsoleFullScreen(bFullScreen: Boolean): Boolean;
const
  MAGIC_CONSOLE_TOGGLE = 57359;
var
  dwOldMode: DWORD;
  dwNewMode: DWORD;
  hOut: THandle;
  hConsole: THandle;
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
    dwNewMode := Ord(bFullScreen);
    NT_GetConsoleDisplayMode(dwOldMode);
    hOut := GetStdHandle(STD_OUTPUT_HANDLE);
    Result := NT_SetConsoleDisplayMode(hOut, dwNewMode, dwOldMode);
  end
  else
  begin
    hConsole := GetConsoleWindow;
    Result := hConsole <> 0;
    if Result then
    begin
      if bFullScreen then
      begin
        SendMessage(GetConsoleWindow, WM_COMMAND, MAGIC_CONSOLE_TOGGLE, 0);
      end
      else
      begin
        // Better solution than keybd_event under Win9X ?
        keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), 0, 0);
        keybd_event(VK_RETURN, MapVirtualKey(VK_RETURN, 0), 0, 0);
        keybd_event(VK_RETURN, MapVirtualKey(VK_RETURN, 0), KEYEVENTF_KEYUP, 0);
        keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), KEYEVENTF_KEYUP, 0);
      end;
    end;
  end;
end;

begin

  SetConsoleFullScreen(true);
  Readln;
  SetConsoleFullScreen(false);

end.

[[cHackAll]]

Empezado por Lepe

...La pregunta correcta, según mi opinión es: ¿debo seguir YO en el foro respondiendo dudas?...

Gracias por hacerme a un lado Lepe, voy a considerar vuestras palabras.

Empezado por Lepe

...Señores, que cuando yo pregunto algo es para aplicarlo a un programa comercial, después YO voy a cobrar por ello; Si seguimos en esta línea no habría foro...

Considerando que tu opinión esta dada por mi comentario, creo que deberías revisar mis estadísticas para notar que lo que dices yo ya lo sé y rara vez me importa; lo que si me incomoda son las agresiones a cualquier nivel de miembros conocidos.

[[coso]]

Hola,
parece ser que mi desconfianza (aunque algo acertada) esta generando la polemica. Pido disculpas, por si sirve para algo y espero que Gallet al menos haya entendido algo. saludos.

[[coso]]

Sinceramente me molesta mucho la gente que pregunta y, sin animo de entender, va apretando apretando hasta que alguien le da directamente el codigo escrito. Me parece que este ha sido el caso. Una cosa es preguntar por necesitar ayuda, y otra es abusar de la confianza de quien ayuda. De todas maneras, ya me ha pasado una o dos veces, asi que ire con mucho mas tiento antes de 'saltar' (lo siento de veras). saludos.

PD: Gallet, si tienes algo que decir, estaria bien que lo comentases.

[[cHackAll]]

Me parece lindo gesto el tuyo coso, en realidad no tienes la culpa de nada... éste (para mi) ha sido un suceso muy aislado.

Sin embargo me temo que a Lepe le ha parecido importante decir que estoy en el lugar equivocado; si es el caso, talvez deba decírmelo sin rodeos para que tome una actitud al respecto.

[[coso]]

:/ se esta yendo mucho de madre esto...personalmente cHackAll no he visto en ningun lado que Lepe dijera que estas en el lugar equivocado (hablaba de el mismo). Quizas un punto y aparte seria lo mejor...

[[Lepe]]

Empezado por cHackAll

Gracias por hacerme a un lado Lepe, voy a considerar vuestras palabras.

¿pero qué dices?

Perdona si en algún momento ha parecido un ataque a tu persona, en ningún momento he pretendido molestarte u ofenderte.

No me hace falta ver las estadísticas para saber que no preguntas en el foro, sólo respondes y además con una calidad altísima en todas tus respuestas, es más me cito a mí mismo:

Empezado por Lepe

Para ser sinceros, yo esas APIs ni las conocía; me dices el nombre y me costaría sacar el código

¿Cómo puedes pensar que iba por tí? Tú precisamente eres el que pone más código delphi sin que nadie te lo pida. Te molestas en hacer todo el trabajo y sé el tiempo que le dedicas a ello, es imposible que pueda criticarte.

Si te molestara que alguien se aprovechara de tu código, ni siquiera estarías en el foro, y amigo, llevas ya mucho recorrido como para que alguien dude de tí o tus intenciones.

Una vez más repito: Te pido disculpas si te he ofendido de alguna manera.

Saludos

[[cHackAll]]

Empezado por Lepe

...Te pido disculpas si te he ofendido de alguna manera...

Disculpa tu mi suceptibilidad.

Saludos