Свойства_экрана\Заставка [Delphi, Windows]
Rumata3000 © (2006-08-31 11:46:00)
Необходимо открыть свойства экрана на нужной закладке, к
примеру на "Заствке"? Код следующий:
WinExec('rundll32 shell32.dll,Control_RunDLL
desk.cpl,,1',SW_SHOW);
Казалось бы - чего проще! Свойства экрана открываются
отлично, но нужная закладка - ни в какую!
_3d[Power] (2006-09-16 21:12:00) [1]
скорее всего тебе для савера, вот:
var s : string;
PRes : PChar;
begin
PRes := StrAlloc(255);
GetWindowsDirectory(PRes, 255);
s := StrPas(PRes)+'\YOUR SCREENSAVER.scr';
ShellExecute( 0 , 'open', PChar('rundll32.exe'),
PChar('desk.cpl,InstallScreenSaver '+s), nil, 1);
Наверх 
ЧАТ |
Орешник |
|
