Господа, будьте снисходительны, не бросайтесь сразу штрафовать за, как вам кажется, глупые вопросы - beginners на то и beginners.
Можно. В автозапуск каждого из пользователей добавить софтину...04.12.03 10:47 Число просмотров: 1535 Автор: HandleX <Александр М.> Статус: The Elderman
Сам прогу наваяешь или как? Она переключает экран в нужный режим...
Не хочешь программировать, можно поискать в Сети нечто подобное...
Вот небольшой пример на Delphi...
// Эта процедура перечисляет все возможные режимы на твоём компутере...
procedure TForm1.FormCreate(Sender: TObject);
Var
PDevMode: ^_DEVICEMODEA;
J: Integer;
begin
New(PDevMode);
ZeroMemory(PDevMode, SizeOf(PDevMode^));
J := 0;
PDevMode.dmSize := SizeOf(PDevMode^);
LBox.Clear;
While EnumDisplaySettings(Nil, J, PDevMode^) Do
Begin
LBox.Items.AddObject(Format('%d BPP, %d x %d, %d Hz', [PDevMode.dmBitsPerPel, PDevMode.dmPelsWidth, PDevMode.dmPelsHeight, PDevMode.dmDisplayFrequency]), TObject(PDevMode));
New(PDevMode);
ZeroMemory(PDevMode, SizeOf(PDevMode^));
PDevMode.dmSize := SizeOf(PDevMode^);
Inc(J);
End;
end;
//А эта процедура выставляет нужный режим
procedure TForm1.Button2Click(Sender: TObject);
Type PDevMode = ^_DEVICEMODEA;
Var aDevMode: _DEVICEMODEA;
begin
If LBox.ItemIndex = -1 Then Exit;
aDevMode := PDevMode(LBox.Items.Objects[LBox.ItemIndex])^;
aDevMode.dmFields := DM_BITSPERPEL + DM_PELSWIDTH + DM_PELSHEIGHT;
Case ChangeDisplaySettings(aDevMode, 0) Of
DISP_CHANGE_RESTART: Raise Exception.Create('The computer must be restarted in order for the graphics mode to work.');
DISP_CHANGE_BADFLAGS: Raise Exception.Create('An invalid set of flags was passed in.');
DISP_CHANGE_FAILED: Raise Exception.Create('The display driver failed the specified graphics mode.');
DISP_CHANGE_BADMODE: Raise Exception.Create('The graphics mode is not supported.');
DISP_CHANGE_NOTUPDATED: Raise Exception.Create('Windows NT only: Unable to write settings to the registry.');
End;
end;
есть одно неудобство. сам работаю с разрешением экрана 1024х768. а родители не могут мелко смотреть и работают 800х600...
они ставят свои, и у меня становится 800х600. я ставлю свои, и у них ставится 1024х768...
работаем под разными логинами.
как сделать разные настройки???
можно, но проще..04.12.03 10:50 Автор: mentat[bugtraq.ru] <Александр> Статус: Elderman
> есть одно неудобство. сам работаю с разрешением экрана > 1024х768. а родители не могут мелко смотреть и работают > 800х600... > они ставят свои, и у меня становится 800х600. я ставлю > свои, и у них ставится 1024х768... > работаем под разными логинами. > как сделать разные настройки???
в настройках родителей поставить
1. Крупные иконки
2. крупный шрифт
и не извращаться. у виндов есть все настройки на этот случай. там же в свойствах экрана. даже в НТ4 есть
Не согласен, категорически04.12.03 13:16 Автор: Ktirf <Æ Rusakov> Статус: Elderman
Крупные иконки еще куда ни шло, но с крупным текстом, особенно в сторонних приложениях, наступают такие глюки... Диалоговые окна масштабируются плохо (особенно, когда об этом забыл разработчик), и текст в них при крупном шрифте очень часто можно прочесть только наполовину. Короче говоря, лучше к терапевту, то есть программку в автозагрузку. Команднострочную программку могу прислать.
Пришли, плиз, программку! только если нетрудно напиши чего с...04.12.03 15:57 Автор: КаламбУр Статус: Незарегистрированный пользователь
Просто программка дома лежит. Если не подойдет ResRes, пискни еще раз, пришлю свою. Она у меня спартанская, делает ровно то что сказали, так что попробуй сначала ResRes лучше :)
Кста, поскольку ChangeDisplaySettings() экспортируется из user32.dll, вполне вероятно переключать режим батником, юзая rundll32... Гуру, подключайтесь! ;-)04.12.03 14:24 Автор: HandleX <Александр М.> Статус: The Elderman
Сам прогу наваяешь или как? Она переключает экран в нужный режим...
Не хочешь программировать, можно поискать в Сети нечто подобное...
Вот небольшой пример на Delphi...
// Эта процедура перечисляет все возможные режимы на твоём компутере...
procedure TForm1.FormCreate(Sender: TObject);
Var
PDevMode: ^_DEVICEMODEA;
J: Integer;
begin
New(PDevMode);
ZeroMemory(PDevMode, SizeOf(PDevMode^));
J := 0;
PDevMode.dmSize := SizeOf(PDevMode^);
LBox.Clear;
While EnumDisplaySettings(Nil, J, PDevMode^) Do
Begin
LBox.Items.AddObject(Format('%d BPP, %d x %d, %d Hz', [PDevMode.dmBitsPerPel, PDevMode.dmPelsWidth, PDevMode.dmPelsHeight, PDevMode.dmDisplayFrequency]), TObject(PDevMode));
New(PDevMode);
ZeroMemory(PDevMode, SizeOf(PDevMode^));
PDevMode.dmSize := SizeOf(PDevMode^);
Inc(J);
End;
end;
//А эта процедура выставляет нужный режим
procedure TForm1.Button2Click(Sender: TObject);
Type PDevMode = ^_DEVICEMODEA;
Var aDevMode: _DEVICEMODEA;
begin
If LBox.ItemIndex = -1 Then Exit;
aDevMode := PDevMode(LBox.Items.Objects[LBox.ItemIndex])^;
aDevMode.dmFields := DM_BITSPERPEL + DM_PELSWIDTH + DM_PELSHEIGHT;
Case ChangeDisplaySettings(aDevMode, 0) Of
DISP_CHANGE_RESTART: Raise Exception.Create('The computer must be restarted in order for the graphics mode to work.');
DISP_CHANGE_BADFLAGS: Raise Exception.Create('An invalid set of flags was passed in.');
DISP_CHANGE_FAILED: Raise Exception.Create('The display driver failed the specified graphics mode.');
DISP_CHANGE_BADMODE: Raise Exception.Create('The graphics mode is not supported.');
DISP_CHANGE_NOTUPDATED: Raise Exception.Create('Windows NT only: Unable to write settings to the registry.');
End;
end;
подробно о проекте
Анализ криптографических сетевых...
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
