| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Изменение системного времени [D7, Win95/98, WinME, NT4, Win2k, WinXP]

Freaky ©   (2004-01-13 21:31:00) 

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

---

Freaky   (2004-01-14 14:56:00) [1]

Спасибо.

---

DVM   (2004-01-14 10:45:00) [2]

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

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

---

DrPass   (2004-01-14 00:57:00) [3]

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

---

DVM   (2004-01-14 00:43:00) [4]

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;

---

Наверх