VPF::Изменить разрешения - Форум программистов

BenGAMEn

Дата 26.5.2008, 16:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 21.5.2008

Репутация: нет
Всего: нет

Добрый день. Собственно прошу у вас помощи в таком деле. Мне нужно при запуске программы изменить разрешения окна с текущего, на 1024*768 Таким занемаюсь впервый раз, вот нашел код, а он неработает

Код


function SetFullscreenMode:Boolean; 
var DeviceMode : TDevMode; 
begin 
  with DeviceMode do begin 
    dmSize:=SizeOf(DeviceMode); 
    dmBitsPerPel:=32; 
    dmPelsWidth:=1024; 
    dmPelsHeight:=768; 
    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; 
end; 

procedure RestoreDefaultMode; 
var 
  T : TDevMode absolute 0; 
begin 
  ChangeDisplaySettings(T,CDS_FULLSCREEN); 
end; 

procedure TForm1.FormShow(Sender: TObject);
begin 
  if setFullScreenMode then 
  begin 
    sleep(7000); 
    RestoreDefaultMode; 
  end; 
end;

Подскажите пожалуйста че не так
ругается на эту строчку

Код


var T : TDevMode absolute 0;

Две ошибки: Variable name expected
';' expected but '.' found
Оччччень прошу помогите пожалуйста что нетак?

Alexeis

Дата 26.5.2008, 16:53 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

BenGAMEn, это какой-то старый код. Сейчас так писать нельзя.
Правильно будет

Код


var T : TDevMode;
Begin
  FillChar(T, sizeof(TDevMode), 0);
  ...

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

BenGAMEn

Дата 26.5.2008, 16:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 21.5.2008

Репутация: нет
Всего: нет

Большое спасибо, все работает

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »