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

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 )

---

← →
XenonXX ©   (2003-07-28 09:27) [2]

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;
......


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

---

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

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



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