Скачать: CL | DM;

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

← →
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(). Хотя все эти варианты в результате все равно сводятся к моему.

---

← →
Freaky ©   (2004-01-14 14:56) [4]

Спасибо.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c