Изменение системного времени

← →
Freaky © (2004-01-13 21:31) [0]

Люди, может кто знает, кинтье плиз код, чтобы можно было открыть диалог изменения даты/времени для любой версии Windows. Спасибо.

← →
DVM © (2004-01-14 00:43) [1]

var
SysDir: PChar;
si : TStartupInfo;
pi : TProcessInformation;
begin
GetMem(SysDir, (MAX_PATH + 1)* SizeOf(Char));
GetSystemDirectory(SysDir, MAX_PATH);
ZeroMemory(@si, SizeOf(TSTARTUPINFO));
si.cb := SizeOf(TSTARTUPINFO);
if CreateProcess(nil,
PChar("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl"),
nil,
nil,
false,
NORMAL_PRIORITY_CLASS,
nil,
SysDir,
si,
pi) <> false then
begin
CloseHandle(pi.hThread);
CloseHandle(pi.hProcess);
end;
FreeMem(SysDir);
end;

← →
DrPass © (2004-01-14 00:57) [2]

после отладки кода:
WinExec("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", sw_show)

← →
DVM © (2004-01-14 10:45) [3]

> DrPass © (14.01.04 00:57) [2]

Могут быть проблемы с нахождением необходимых файлов в разных версиях Windows, лучше уж ShellExecute(), а не WinExec(). Хотя все эти варианты в результате все равно сводятся к моему.

Спасибо.

Изменение системного времени Найти похожие ветки