SetSystemTime

← →
XenonXX © (2003-07-28 04:25) [0]

У меня вот тут шок: оная функция возвращает nonzero, но время не меняет! как это? и что делать? фрагмент программы:
........ DateTimeToSystemTime(zap(ListView1.Selected.Data^).d,x); GetSystemTime(t); SetSystemTime(x); Application.Minimize; Application.Title:="Runing "+ExtractFileName(zap(ListView1.Selected.Data^).s); FillChar(StartupInfo,Sizeof(StartupInfo),#0); StartupInfo.cb := Sizeof(StartupInfo); StartupInfo.dwFlags := STARTF_USESHOWWINDOW; StartupInfo.wShowWindow := sw_show; CreateProcess(pchar(ss),nil,string,nil,attributes,nil,false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,nil, nil, StartupInfo,ProcessInfo); WaitforSingleObject(ProcessInfo.hProcess,INFINITE); GetSystemTime(w); t.wHour:=t.wHour+w.wHour-x.wHour; t.wMinute:=t.wMinute+w.wMinute-x.wMinute; t.wSecond:=t.wSecond+w.wSecond-x.wSecond; if not SetSystemTime(t) then begin FormatMessage//сюда не заходит, но время не меняет!!(FORMAT_MESSAGE_FROM_SYSTEM,nil,GetLastError,0,pchar(ss),255,nil); ShowMessage(ss); end; .......

← →
ZZ © (2003-07-28 08:32) [1]

Windows NT/2000 or later: The SetSystemTime function enables the SE_SYSTEMTIME_NAME privilege before changing the system time. This privilege is disabled by default. For more information about security privileges, see Privileges.

По поводу Enable privilegies - в FAQ или поиск (например по AdjustTokenPrivileges )

2
Привилегии у меня есть
procedure TForm1.FormCreate(Sender: TObject); ...... if OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES,htoken) then begin LookupPrivilegeValue(nil,"SeSystemtimePrivilege",luid); tkp.Privileges[0].Luid:=luid; tkp.PrivilegeCount:=1; tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED; AdjustTokenPrivileges(htoken,false,tkp,0,nil,returnlength); end; ......

А оно то меняет, то нет, и я не могу понять с чем это связано :(

SetSystemTime Найти похожие ветки