HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ОФФТОП > Болталка
Перезагрузить страницу Как сменить разрешение у компбютера?
   
Ответ
Страница 1 из 2 1 2 >
 
Опции темы Поиск в этой теме Опции просмотра

Как сменить разрешение у компбютера?
  #1  
Старый 23.11.2008, 13:38
4NT1P0V
Участник форума
Регистрация: 15.01.2008
Сообщений: 207
С нами: 9642211

Репутация: 46
По умолчанию Как сменить разрешение у компбютера?
Скажите как ине поменять разрешение экрана, только что оно поменялось не у всех пользователе, а только у меня?
𝕏 Twitter Reddit Telegram Копировать ссылку
 
Ответить с цитированием

  #2  
Старый 23.11.2008, 13:40
NeXArmAor
Участник форума
Регистрация: 21.04.2007
Сообщений: 289
С нами: 10029911

Репутация: 368
По умолчанию
Цитата:
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_FULLS CREEN) = DISP_CHANGE_SUCCESSFUL;
end;
end;

procedure RestoreDefaultMode; // для возврата дефолтового разрешения
var
T : TDevMode absolute 0;
begin
ChangeDisplaySettings(T,CDS_FULLSCREEN);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if setFullScreenMode then
begin
sleep(7000);
RestoreDefaultMode;
end;
end;
вот код
 
Ответить с цитированием

  #3  
Старый 23.11.2008, 13:47
4NT1P0V
Участник форума
Регистрация: 15.01.2008
Сообщений: 207
С нами: 9642211

Репутация: 46
По умолчанию
А куда это вписать не разберусь
 
Ответить с цитированием

  #4  
Старый 23.11.2008, 13:49
NeXArmAor
Участник форума
Регистрация: 21.04.2007
Сообщений: 289
С нами: 10029911

Репутация: 368
По умолчанию
Цитата:
Сообщение от 4NT1P0V  
А куда это вписать не разберусь
тебе программно нужно сменить или как? если не программно,то Экран->параметры->разрешение экрана
 
Ответить с цитированием

  #5  
Старый 23.11.2008, 13:58
4NT1P0V
Участник форума
Регистрация: 15.01.2008
Сообщений: 207
С нами: 9642211

Репутация: 46
По умолчанию
если я меняю через Экран->параметры->разрешение экрана то разрешение меняется у всех пользователей, а мне нужно сменить разрешение только у себя, чтоб у других пользователей не поменялось
 
Ответить с цитированием

  #6  
Старый 23.11.2008, 14:01
crystalbit
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
С нами: 9436571

Репутация: 110
По умолчанию
Напиши на дельфи прогу чтоб при запуске менялось как тебе надо, а при выходе возвращалось, все функции есть
Помести в автозагрузку нужного пользователя, вот и вся арифметика
 
Ответить с цитированием

  #7  
Старый 23.11.2008, 14:07
4NT1P0V
Участник форума
Регистрация: 15.01.2008
Сообщений: 207
С нами: 9642211

Репутация: 46
По умолчанию
Я на делфи ни разу не пробывал нечего писать..
 
Ответить с цитированием

  #8  
Старый 23.11.2008, 14:14
Qws
Участник форума
Регистрация: 17.06.2008
Сообщений: 161
С нами: 9420392

Репутация: 207
По умолчанию
Цитата:
Сообщение от 4NT1P0V  
Я на делфи ни разу не пробывал нечего писать..
А ти знаеш хоть какой нибуть язик програмирования?
 
Ответить с цитированием

  #9  
Старый 23.11.2008, 14:28
4NT1P0V
Участник форума
Регистрация: 15.01.2008
Сообщений: 207
С нами: 9642211

Репутация: 46
По умолчанию
Бейсик, но плохо, и то наверное не помню сейчас
 
Ответить с цитированием

  #10  
Старый 23.11.2008, 14:55
Shisha
Постоянный
Регистрация: 15.06.2008
Сообщений: 509
С нами: 9423469

Репутация: 761


По умолчанию
Цитата:
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_FULLS CREEN) = DISP_CHANGE_SUCCESSFUL;
end;
end;

procedure RestoreDefaultMode; // для возврата дефолтового разрешения
var
T : TDevMode absolute 0;
begin
ChangeDisplaySettings(T,CDS_FULLSCREEN);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if setFullScreenMode then
begin
sleep(7000);
RestoreDefaultMode;
end;
end;
Качаешь Дельфи и тупо вставляешь этот код
 
Ответить с цитированием
Ответ
Страница 1 из 2 1 2 >



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как подключить ноутбук как основной монитор кома =faraon= Болталка 6 01.09.2008 14:50



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.