Форум: "Основная";
Текущий архив: 2004.09.19;
Скачать: [xml.tar.bz2];
Вниз1)ExitWindows(EWX_PowerOff ,0); 2) WinExec(Name1, SW_SHOWNORMAL); Найти похожие ветки
← →
HF-Trade © (2004-09-02 00:04) [0]Сабж 1)
Господа, поможите тупому, мож я че не так пишу - мне надо чтоб комп выключался полностью, всмысле питание , а он у меня только перелогинивается пробовал ShutDown, PowerOFF и еще чего то, уже не помню, а он только перелогиниванется... памажите.
Сабж 2)
После ентой строки должна запускаться прога, но она запускается только после того как я закрываю свое приложение, если приделать под обработчик с кнопки, то усе нормально, а мне надо чтоб при определенных условиях загружалась определенная прога т.е. без нажатия на кнопку или ссылу там, ну я понятно обьяснил? ;_) Вощем хэлп ми!
← →
** (2004-09-02 00:41) [1]1
> ExitWindows(EWX_PowerOff ,0);
ExitWindows(EWX_SHUTDOWN or EWX_POWEROFF ,0);
2
> я понятно обьяснил?
нет
← →
HF-Trade © (2004-09-02 01:26) [2]1 Тоже самое, только перелогинивается и усе....
2 Вощем в определенное время должна запускаться определенная прога.
Но прога загружается только после того как я закрываю свое приложение.
← →
GuAV © (2004-09-02 01:43) [3]
> ExitWindows
ExitWindowsEx
> 2 Вощем в определенное время должна запускаться определенная
> прога.
> Но прога загружается только после того как я закрываю свое
> приложение.
Как в таких случаях говорят, ошибка в 17 строке
← →
HF-Trade © (2004-09-02 02:05) [4]Если ExitWindowsEX... то у меня просто моя прога закрывается и все.
← →
Andy BitOff © (2004-09-02 02:29) [5]2)
Не зняю в чем у тебя проблема. Все работает.
procedure TForm1.FormCreate(Sender: TObject);
begin
WinExec("c:\Program Files\Microsoft Office\Office10\EXCEL.EXE", SW_SHOWNORMAL);
Halt;
end;
← →
Andy BitOff © (2004-09-02 02:34) [6]1)
Ты наверное не читал help по ExitWindowsEX:
Windows NT: To shut down or restart the system, the calling process must use the AdjustTokenPrivileges function to enable the SE_SHUTDOWN_NAME privilege. For more information about security privileges, see Privileges.
← →
HF-Trade © (2004-09-02 05:58) [7]Andy BitOff
Читал, просто я думал это под старые версии делфи, а типа в новых пофигу... пасиб.. попробую.
С 2) Все нормул... поправил, все равно всем пасиб.
← →
Агент Х-СОМ © (2004-09-02 19:23) [8]Вот образец ф-ции выключения компа:
procedure TfrmMain.PowerOff(Flags: UINT);
var
tokenPriv: TTokenPrivileges;
tokenHandle: THandle;
begin
if (Win32Platform = VER_PLATFORM_WIN32_NT) and
((Flags and (EWX_POWEROFF or EWX_REBOOT or EWX_SHUTDOWN)) <> 0) then
begin
if OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES,
TokenHandle) then begin
if LookupPrivilegeValue(nil,"SeShutdownPrivilege",
TokenPriv.Privileges[0].LUID) then
begin
TokenPriv.PrivilegeCount:=1;
TokenPriv.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
if not AdjustTokenPrivileges(TokenHandle,false,TokenPriv,0,
TTokenPrivileges(nil^),DWORD(nil^)) then exit;
end;
end;
end;
ExitWindowsEx(Flags, 0);
end;
Образец вызова:
PowerOff(EWX_REBOOT);..перезагрузка
PowerOff(EWX_LOGOFF);..сеанс
if (EWX_POWEROFF) <> 0 then begin
PowerOff(EWX_POWEROFF);
end
else begin
PowerOff(EWX_SHUTDOWN);
end;..выключение с поддержкой Win95
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.09.19;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.118 c