Форум: "Система";
Текущий архив: 2003.10.13;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Система";
Текущий архив: 2003.10.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c