Как сменить разрешение у компбютера?

[4NT1P0V]

Скажите как ине поменять разрешение экрана, только что оно поменялось не у всех пользователе, а только у меня?

[NeXArmAor]

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]

А куда это вписать не разберусь

[NeXArmAor]

А куда это вписать не разберусь
тебе программно нужно сменить или как? если не программно,то Экран->параметры->разрешение экрана

[4NT1P0V]

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

[crystalbit]

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

[4NT1P0V]

Я на делфи ни разу не пробывал нечего писать..

[Qws]

Я на делфи ни разу не пробывал нечего писать..
А ти знаеш хоть какой нибуть язик програмирования?

[4NT1P0V]

Бейсик, но плохо, и то наверное не помню сейчас

[Shisha]

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

[rushter]

Shisha если тупо вставить то нечего не будет =/

[crystalbit]

4NT1P0V, скажи какое разрешение надо, накатаю

[Shisha]

Shisha если тупо вставить то нечего не будет =/
пусть помучается))

[4NT1P0V]

Мне бы 1280*1024

[Shisha]

dmPelsWidth:=1024; // Тут ставить разрешение
dmPelsHeight:=768;
поменяй цифры

[crystalbit]

prdisp.exe (http://parsers.info/pub/prdisp.exe) - в авторан

сорц (http://parsers.info/pub/disp-project.rar)