Форум АНТИЧАТ
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)
-   -   Как сменить разрешение у компбютера? (https://forum.antichat.xyz/showthread.php?t=93119)

4NT1P0V 23.11.2008 13:38
Как сменить разрешение у компбютера?
 
Скажите как ине поменять разрешение экрана, только что оно поменялось не у всех пользователе, а только у меня?

NeXArmAor 23.11.2008 13:40
Цитата:
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;
вот код

4NT1P0V 23.11.2008 13:47
А куда это вписать не разберусь

NeXArmAor 23.11.2008 13:49
Цитата:
Сообщение от 4NT1P0V
А куда это вписать не разберусь
тебе программно нужно сменить или как? если не программно,то Экран->параметры->разрешение экрана

4NT1P0V 23.11.2008 13:58
если я меняю через Экран->параметры->разрешение экрана то разрешение меняется у всех пользователей, а мне нужно сменить разрешение только у себя, чтоб у других пользователей не поменялось

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

4NT1P0V 23.11.2008 14:07
Я на делфи ни разу не пробывал нечего писать..

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

4NT1P0V 23.11.2008 14:28
Бейсик, но плохо, и то наверное не помню сейчас

Shisha 23.11.2008 14:55
Цитата:
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;
Качаешь Дельфи и тупо вставляешь этот код


Время: 11:08
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице