Espero alguien pueda ayudarme un poco con esto
soy nuevo en la programacion con delphim estoy trabajando en un programa e inicialmente necesitaba se ejecutara en 800 x 600, cosa que pude implementar poniendo esl siguiente codigo:
Código Delphi
[-]procedure TForm1.FormCreate(Sender: TObject);
function NuevaRes(XRes, YRes: DWord):integer;
var
lpDevMode : TDeviceMode;
begin
EnumDisplaySettings(nil, 0, lpDevMode);
lpDevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth:=XRes;
lpDevMode.dmPelsHeight:=YRes;
NuevaRes:=ChangeDisplaySettings(lpDevMode, 0);
end;
begin
NuevaRes(800,600);
end;
end.
como ven, al entrar la aplicacion pasa la pantalla a 800 x 600, ahora mi problema radica, en como regresarlo a su configuracion original, despues de cerrar mi aplicacion
por cierto tambien necesito alguna idea de como agregar una contraseña al inicio de la aplicacion
gracias de antemano
//Lo edite para que Azra aprenda como debe colocar los Tag's que comenta Neftali mas abajo 