Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
Как сменить разрешение у компбютера? |
23.11.2008, 13:38
|
|
Участник форума
Регистрация: 15.01.2008
Сообщений: 207
Провел на форуме:
1321315
Репутация:
46
|
|
Как сменить разрешение у компбютера?
Скажите как ине поменять разрешение экрана, только что оно поменялось не у всех пользователе, а только у меня?
|
|
|
23.11.2008, 13:40
|
|
Участник форума
Регистрация: 21.04.2007
Сообщений: 289
Провел на форуме:
4612647
Репутация:
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;
вот код
|
|
|
|
23.11.2008, 13:47
|
|
Участник форума
Регистрация: 15.01.2008
Сообщений: 207
Провел на форуме:
1321315
Репутация:
46
|
|
А куда это вписать не разберусь
|
|
|
|
23.11.2008, 13:49
|
|
Участник форума
Регистрация: 21.04.2007
Сообщений: 289
Провел на форуме:
4612647
Репутация:
368
|
|
Сообщение от 4NT1P0V
А куда это вписать не разберусь
тебе программно нужно сменить или как? если не программно,то Экран->параметры->разрешение экрана
|
|
|
|
23.11.2008, 13:58
|
|
Участник форума
Регистрация: 15.01.2008
Сообщений: 207
Провел на форуме:
1321315
Репутация:
46
|
|
если я меняю через Экран->параметры->разрешение экрана то разрешение меняется у всех пользователей, а мне нужно сменить разрешение только у себя, чтоб у других пользователей не поменялось
|
|
|
|
23.11.2008, 14:01
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
Провел на форуме:
1085601
Репутация:
110
|
|
Напиши на дельфи прогу чтоб при запуске менялось как тебе надо, а при выходе возвращалось, все функции есть
Помести в автозагрузку нужного пользователя, вот и вся арифметика
|
|
|
|
23.11.2008, 14:07
|
|
Участник форума
Регистрация: 15.01.2008
Сообщений: 207
Провел на форуме:
1321315
Репутация:
46
|
|
Я на делфи ни разу не пробывал нечего писать..
|
|
|
|
23.11.2008, 14:14
|
|
Участник форума
Регистрация: 17.06.2008
Сообщений: 161
Провел на форуме:
2550251
Репутация:
207
|
|
Сообщение от 4NT1P0V
Я на делфи ни разу не пробывал нечего писать..
А ти знаеш хоть какой нибуть язик програмирования?
|
|
|
|
23.11.2008, 14:28
|
|
Участник форума
Регистрация: 15.01.2008
Сообщений: 207
Провел на форуме:
1321315
Репутация:
46
|
|
Бейсик, но плохо, и то наверное не помню сейчас
|
|
|
|
23.11.2008, 14:55
|
|
Постоянный
Регистрация: 15.06.2008
Сообщений: 509
Провел на форуме:
2417172
Репутация:
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 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
