ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Delphi 10.3 Функция ExitWindows работает некорректно
25 сообщений из 50, страница 2 из 2
  2  все
Delphi 10.3 Функция ExitWindows работает некорректно
    #39980895
Евгений Стронг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Евгений Стронг
Гость
Dimitry Sibiryakov

Евгений Стронгя использовал именно этот код
он НЕ работает

Он и не должен работать. И это чёрным по англицки написано в документации в которую тебя
тычут носом уже второй день.

Может, ты просто по английски не понимаешь? translate.google.com тебе поможет.


Куда тычат то? В документацию, запустив по которой НИЧЕГО не происходит? Ты хоть утыкайся тут. Если такой умный, то скинь строчку кода с двумя параметрами, я запущу тебе её и сниму на видео, чтобы ты лишний раз убедился в свой документации, которая не работает. Я уже несколько раз написал, что читал её и запускал различные варианты. Ты не можешь понять этих очевидных вещей? Я уже и примеры кодов пишу, которые использую. А ты мне всё со своей документацией. Ну и чего? Я делаю ровно так, как там написано. Сраная функция с ДВУМЯ параметрами. Чего там изучать то? Ты прикалываешься? Функции, которые я скинул в посте у меня использовались в программе, но писал я её давно. А сейчас на 10 винде это не работает. Отсюда и топик. Но мало чем изменилось что-то спустя эти годы, за исключением второго параметра, что теперь он не во всех случаях равен 0.
...
Рейтинг: 0 / 0
17.07.2020, 12:59
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39980896
Евгений Стронг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Евгений Стронг
Гость
wadman
Dimitry Sibiryakov
Может, ты просто по английски не понимаешь?

По моей ссылке и вовсе на русском об этом написано.


Вышеописанные примеры действительны только для w9x/Me.?

Я это и выше написал сам. Вы вообще сообщения читаете? Или просто ляпаете свои нерабочие ссылки по очереди? У кого-то есть успешный запуск функции с параметрами, чтобы выключился и ребутнулся комп? Если нет, то и смысла в этих ссылка нет никакого. Нужен компетентный человек, который понимает, что он пишет, а не кидается ссылками, которые я и до этого сам прочитал и всё сделал по примерам, описанных там.
...
Рейтинг: 0 / 0
17.07.2020, 13:01
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39980904
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
Евгений Стронг
Вышеописанные примеры действительны только для w9x/Me.?

Дружище. Нужно всего лишь было потратить две минуты на осиливание текста сообщения. На бессмысленные ответы уходит больше времени.

Вышеописанные примеры действительны только для w9x/Me.
Дело в том, что, чтобы выполнить функциию в NT ОС, нужно получить права на выполнение этой функции. Сделать это можно через AdjustTokenPriviligies.
С помощью нижеприведённой функции можно получить любую привелегию, в т.ч. и привеленгию SeShutdownPrivilege, которая нужна для разрешения функции ExitWindows(Ex)
...
Рейтинг: 0 / 0
17.07.2020, 13:19
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39980915
Евгений Стронг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Евгений Стронг
Гость
Dimitry Sibiryakov

Евгений СтронгКуда тычат то? В документацию, запустив по которой НИЧЕГО не происходит?

Да. Ты пытаешься использовать функцию, в документации к которой написано, что она не
делает то, что ты хочешь, удивляешься, что она не делает то, что ты хочешь и пишешь на
форуме "помогите, функция не делает то, что я хочу". Ты вообще мозг включаешь хоть иногда?

О том, что можно (и нужно) проверять результат функции на ошибку, тебе когда-нибудь
рассказывали?


Ещё раз, уже в четвертый. Код, который я написал в топике РАБОТАЛ раньше. Теперь он не работает, потому что поменялся виндовый API. Всё, что мне надо было, так это код, который бы работал на 10 винде. Ты понимаешь? Ссылки, которые ты скинул 2018 года - НЕ РАБОТАЕТ ИХ НИХ КОД. Ты слышишь меня?
...
Рейтинг: 0 / 0
17.07.2020, 13:35
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39980919
Евгений Стронг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Евгений Стронг
Гость
wadman
Евгений Стронг
Вышеописанные примеры действительны только для w9x/Me.?

Дружище. Нужно всего лишь было потратить две минуты на осиливание текста сообщения. На бессмысленные ответы уходит больше времени.

Вышеописанные примеры действительны только для w9x/Me.
Дело в том, что, чтобы выполнить функциию в NT ОС, нужно получить права на выполнение этой функции. Сделать это можно через AdjustTokenPriviligies.
С помощью нижеприведённой функции можно получить любую привелегию, в т.ч. и привеленгию SeShutdownPrivilege, которая нужна для разрешения функции ExitWindows(Ex)


И чего? Я это писал ранее, но читать же никто не хочет. Главное скинуть ссылку на гугл и сидеть, типа такой умный.

"Буду дальше разбираться. Быть может проблема на уровне привилегий или ещё чего там мелкософт поменял в API."
- вот моё сообщение. Чем ты открыл глаза мне своей ссылкой 2003 года? В общем парни, забейте. Я сам разберусь во всем. Это гораздо будет быстрее, чем просить тут какой-то помощи. Ведь вся помощь тут заключается в скидывании ссылок с лохматых годов и msdn. В таком случае и форум неактуален. Я сюда написал, чтобы увидеть ответ от человека, у которого СЕЙЧАС этот функционал работает. И хотел бы увидеть этот рабочий код. Вот и всё, зачем я написал пост. Выше с парнем мы пытались по документации дернуть функции и результат был отрицательный. В остальном я буду самостоятельно разбирать, смотря и ошибки, и события винды. Написать на форум - вот в чем ошибка. Он уже давно превратился в ненавистных людей, которые из-за своей низкой самооценки пытаются умничать ссылками в инете.
...
Рейтинг: 0 / 0
17.07.2020, 13:40
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39980921
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
Евгений СтронгНЕ РАБОТАЕТ ИХ НИХ КОД.

Ссылки, которые я привёл, вообще не содержат кода, так что я совершенно не понимаю о чём
ты говоришь.

Да, API внезапно поменялось за последние 25 лет. Именно поэтому надо читать текущую
документацию, а не самоутешаться мыслью "оно ведь работало когда-то в прошлом веке".
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
17.07.2020, 13:44
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39980928
Евгений Стронг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Евгений Стронг
Гость
Евгений Стронг
d7i
Код: plaintext
1.
2.
3.
4.
5.
6.
#define EWX_LOGOFF   0
#define EWX_SHUTDOWN 1
#define EWX_REBOOT   2
#define EWX_FORCE    4
#define EWX_POWEROFF 8
#define ExitWindows(dwReserved, Code) ExitWindowsEx(EWX_LOGOFF, 0xFFFFFFFF)



Спасибо. Но не работает. То есть во всех трех случаях происходит закрытие всех приложение и выход до окна авторизации. То есть по сути логофф во всех случаях.

Код: pascal
1.
2.
3.
ExitWindows(EWX_SHUTDOWN,1);
ExitWindows(EWX_REBOOT,2);
ExitWindows(EWX_LOGOFF,0);



Буду дальше разбираться. Быть может проблема на уровне привилегий или ещё чего там мелкософт поменял в API.


Да, действительно, как я и полагал, проблема не в коде, а в привилегиях. И комп успешно выключается функцией
ExitWindowsEx(EWX_SHUTDOWN,0);
...
Рейтинг: 0 / 0
17.07.2020, 13:57
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39980952
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
Евгений Стронг
А ты додумаешься почитать мой второй пост и увидеть, что я эту функцию уже использовал и прекрасно знаю о ней.
Да ни хрена ты не знаешь. Именно в описании функции есть ВСЯ необходимая инфа и о привилегиях и ВНЕЗАПНО ссылка на пример правильного использования. Просто читать надо до конца, а не только первое предложение, а потом ныть какие все плохие и конфетку в рот никак не кладут
...
Рейтинг: 0 / 0
17.07.2020, 14:22
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39981030
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-Cite
Участник
Евгений Стронг

Да, действительно, как я и полагал, проблема не в коде, а в привилегиях. И комп успешно выключается функцией
ExitWindowsEx(EWX_SHUTDOWN,0);


Так тебе про привилегии тут говорят уже 2 страницы...
Я тебе явно написал текст, что нужны привилегии.. Даже ссылку на Сишный код где эти привилегии включаются...

Что было непонятного в этой фразе?
To shut down or restart the system, the calling process must use the AdjustTokenPrivileges function to enable the SE_SHUTDOWN_NAME privilege
...
Рейтинг: 0 / 0
17.07.2020, 16:43
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39981046
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
X-Cite
Так тебе про привилегии тут говорят уже 2 страницы...

Поздно. Он уже сам догадался.
...
Рейтинг: 0 / 0
17.07.2020, 17:09
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39981069
misha mike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
misha mike
Участник
 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
function DoExitWindows(const Flags: Cardinal): Boolean;
var
  TokenPriv: TTokenPrivileges;
  TokenHandle: THandle;
  Res: Cardinal;
begin
  if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TokenHandle) and
     LookupPrivilegeValue(nil, 'SeShutdownPrivilege', TokenPriv.Privileges[0].Luid) then
    begin
      TokenPriv.PrivilegeCount := 1;
      TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      if AdjustTokenPrivileges(TokenHandle, False, TokenPriv, 0, nil, Res) then
        Result := ExitWindowsEx(Flags, 0)
      else
        Result := False;
    end
  else
    Result := False;
end;

...
Рейтинг: 0 / 0
17.07.2020, 17:49
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39981098
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
Евгений Стронг
Теперь он не работает, потому что поменялся виндовый API.
Не ври, API не менялся (как и логика использования этого API) уже около 30 лет, с появления Windows NT 3.51.
И в Windows 10 всё работает так же, как и 30 лет назад.
То, почему у тебя не работает, тебе уже объясняли 5 раз, и болдом выделяли.
...
Рейтинг: 0 / 0
17.07.2020, 19:28
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39981128
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
YuRockAPI не менялся (как и логика использования этого API) уже около 30 лет

Не совсем. ЕxitWindowsEx() появился в ХР, тогда же ExitWindows() мутировал в ничего не
делающий макрос.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
17.07.2020, 22:08
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39981132
Евгений Стронг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Евгений Стронг
Гость
misha mike
 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
function DoExitWindows(const Flags: Cardinal): Boolean;
var
  TokenPriv: TTokenPrivileges;
  TokenHandle: THandle;
  Res: Cardinal;
begin
  if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TokenHandle) and
     LookupPrivilegeValue(nil, 'SeShutdownPrivilege', TokenPriv.Privileges[0].Luid) then
    begin
      TokenPriv.PrivilegeCount := 1;
      TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      if AdjustTokenPrivileges(TokenHandle, False, TokenPriv, 0, nil, Res) then
        Result := ExitWindowsEx(Flags, 0)
      else
        Result := False;
    end
  else
    Result := False;
end;



Спасибо за помощь, дружище! Я нашел решение это. Чуть другая функция, но суть одинаковая. Чуть ниже выложу код.
...
Рейтинг: 0 / 0
17.07.2020, 22:27
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39981136
Евгений Стронг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Евгений Стронг
Гость
А так вот код рабочий.

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
uses Windows, Dialogs, ShellAPI;

function SetPrivilege(aPrivilegeName: String; aEnabled: Boolean ): Boolean;
var
  TPPrev,
  TP: TTokenPrivileges;
  Token: THandle;
  dwRetLen: DWord;
begin
  Result:=False;
  OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token);
  TP.PrivilegeCount:=1;
  if LookupPrivilegeValue(nil,PChar(aPrivilegeName),TP.Privileges[0].LUID ) then
    begin
      if aEnabled then TP.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED
      else TP.Privileges[0].Attributes:=0; dwRetLen:= 0;
      Result:=AdjustTokenPrivileges(Token,False,TP,SizeOf(TPPrev),TPPrev,dwRetLen);
    end;
  CloseHandle(Token);
end;

procedure TMAIN.ShutDownBtnClick(Sender: TObject);
begin

  SetPrivilege('SeShutdownPrivilege',True);
  ExitWindowsEx(EWX_SHUTDOWN,0);

end;



Если кому-то пригодится, то буду рад.
...
Рейтинг: 0 / 0
17.07.2020, 22:33
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39981137
Vizit0r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vizit0r
Участник
1) все пишут автору прямо, что нужно использовать AdjustTokenPrivileges
2) автор всех посылает, кричит что все вокруг идиоты, лучше бы посоветовали что-то нормальное, а так только флудить могут, ничего умного не советуют.
3) автор выкладывает итоговый код с AdjustTokenPrivileges

извинится ли автор? Конечно нет, ведь все вокруг идиоты, один он Д'Артаньян, весь в белом.
...
Рейтинг: 0 / 0
17.07.2020, 22:35
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39981139
Евгений Стронг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Евгений Стронг
Гость
Vizit0r
1) все пишут автору прямо, что нужно использовать AdjustTokenPrivileges
2) автор всех посылает, кричит что все вокруг идиоты, лучше бы посоветовали что-то нормальное, а так только флудить могут, ничего умного не советуют.
3) автор выкладывает итоговый код с AdjustTokenPrivileges

извинится ли автор? Конечно нет, ведь все вокруг идиоты, один он Д'Артаньян, весь в белом.


Автор не извинится, потому что вопрос мой был:

Использую функции:

Код: pascal
1.
2.
3.
ExitWindows(EWX_SHUTDOWN,0);
ExitWindows(EWX_REBOOT,0);
ExitWindows(EWX_LOGOFF,0);



Но во всех трех случаях происходит закрытие всех программ и выход на окно авторизации. Грубо говоря, в трех разных вариациях срабатывает (судя по симптомам) - ExitWindows(EWX_LOGOFF,0);

Подскажите, что делаю не так? Или быть может есть альтернативы?

Вот тут если бы мне сказали, что функции уже неактуальны, а используй вот такую вот - ExitWindowsEx. И плюс не забудь, что она не стартанет без привилегий. То какой разговор? Я бы поблагодарил и закрыли бы топик.
...
Рейтинг: 0 / 0
17.07.2020, 22:38
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39981152
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
Евгений Стронг
Вот тут если бы мне сказали, что функции уже неактуальны, а используй вот такую вот - ExitWindowsEx. И плюс не забудь, что она не стартанет без привилегий. То какой разговор? Я бы поблагодарил и закрыли бы топик.
Какой забавный мальчик. На твой пост сразу ответил Дима и дал ссылку пройдя по которой можно было сразу решить проблему. Ах да, надо было прочитать, перевести и понять что там написано и перейти к описанию ExitWindowsEx. Согласен, не все на подобное способны. Измельчали программисты. Посыпаю седины пеплом...
...
Рейтинг: 0 / 0
17.07.2020, 23:55
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39981170
Евгений Стронг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Евгений Стронг
Гость
white_nigger
Евгений Стронг
Вот тут если бы мне сказали, что функции уже неактуальны, а используй вот такую вот - ExitWindowsEx. И плюс не забудь, что она не стартанет без привилегий. То какой разговор? Я бы поблагодарил и закрыли бы топик.
Какой забавный мальчик. На твой пост сразу ответил Дима и дал ссылку пройдя по которой можно было сразу решить проблему. Ах да, надо было прочитать, перевести и понять что там написано и перейти к описанию ExitWindowsEx. Согласен, не все на подобное способны. Измельчали программисты. Посыпаю седины пеплом...


Да не в программистах дело, а в людях и в самом подходе. Тебя в школе учил преподаватель, когда пояснял материал на уроке, подробно разжевывая. А на дом задавал домашнее задание для закрепления информации. А представь, обратившись к нему с вопросом, он бы тебе дал в руки учебник? При таком раскладе ты до сих пор учился бы в школе. На форум люди обращаются не для того, чтобы им дали ссылку, где бы чего почитать. Нет. Они хотят услышать ответ от тех, кто уже прочитал, чтобы не тратить на это время самому. Это и есть развитие. Мудрец познает истину, а далее передает её ученикам. Проблема тут только в том, что мудрецов нет. :-)
...
Рейтинг: 0 / 0
18.07.2020, 01:05
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39981175
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
Евгений Стронг
А представь, обратившись к нему с вопросом, он бы тебе дал в руки учебник?

Три преподавателя дали учебник, открытый на нужной странице.
Оставалось только прочитать, потому что там бинарная инструкция - сделать так и так, чтобы получилось то, что нужно. Даже думать не нужно было.

П.С. Хватит оправдываться. Выглядит еще глупее, чем первая страница темы.
...
Рейтинг: 0 / 0
18.07.2020, 01:47
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39981181
Евгений Стронг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Евгений Стронг
Гость
wadman
Евгений Стронг
А представь, обратившись к нему с вопросом, он бы тебе дал в руки учебник?

Три преподавателя дали учебник, открытый на нужной странице.
Оставалось только прочитать, потому что там бинарная инструкция - сделать так и так, чтобы получилось то, что нужно. Даже думать не нужно было.

П.С. Хватит оправдываться. Выглядит еще глупее, чем первая страница темы.


Да зачем мне оправдываться? Вот первый же ответ:

Гуглишь готовый код прошлого века вместо чтения документации
https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-exitwindows

Далее меня увели про то, что функции не правильно запускаю. А потом уже и сам я пришел к к привилегиям. Самое удивительное, что это все есть в истории и никто даже этого прочитать не в состоянии. Но зато лихо кидают совершенно бесполезные для моей ситуации ссылки. Ответ на мой вопрос - это вот:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
uses Windows, Dialogs, ShellAPI;

function SetPrivilege(aPrivilegeName: String; aEnabled: Boolean ): Boolean;
var
  TPPrev,
  TP: TTokenPrivileges;
  Token: THandle;
  dwRetLen: DWord;
begin
  Result:=False;
  OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token);
  TP.PrivilegeCount:=1;
  if LookupPrivilegeValue(nil,PChar(aPrivilegeName),TP.Privileges[0].LUID ) then
    begin
      if aEnabled then TP.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED
      else TP.Privileges[0].Attributes:=0; dwRetLen:= 0;
      Result:=AdjustTokenPrivileges(Token,False,TP,SizeOf(TPPrev),TPPrev,dwRetLen);
    end;
  CloseHandle(Token);
end;

procedure TMAIN.ShutDownBtnClick(Sender: TObject);
begin

  SetPrivilege('SeShutdownPrivilege',True);
  ExitWindowsEx(EWX_SHUTDOWN,0);

end;



Мне нужно решить задачу, а не изучать API виндовый. Сколько же мне пришлось бы перечитать литературы, чтобы самостоятельно написать подобную функцию? Вот к чему эта напрасная трата времени? Я же говорю, форум именно для этого. Чтобы более опытный поделился знаниями, а не ссылками. Я и сам знаю, что следует почитать. Мне код интересен. А вот уже на основании него мне и будет понятно, как и что работает. Разумеется, что до привилегий я далеко не сразу дошел, потому что мне и сейчас плохо понятно, как я являюсь админом на своем компе, запускаю exe и у меня не хватает привилегий ребутнуть свой же комп. А если бы у меня не было на это прав, то какого хера я могу их дать через код в обход установленной политики безопасности? Никакой логики, отсюда и проблемы в понимании. Если бы я знал про эти нюансы, то не обратился бы на форум. Надеюсь хоть это понятно.
...
Рейтинг: 0 / 0
18.07.2020, 02:06
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39981183
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
Евгений Стронг
Мне нужно решить задачу, а не изучать API виндовый. Сколько же мне пришлось бы перечитать литературы, чтобы самостоятельно написать подобную функцию?

Первая-же ссылка в гугле дает верный ответ. Вторая - на английском. Её можно исключить.

Евгений Стронг
Вот к чему эта напрасная трата времени?

Время столь ценно?
...
Рейтинг: 0 / 0
18.07.2020, 02:23
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39981243
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
Евгений Стронг
Вот тут если бы мне сказали, что функции уже неактуальны, а используй вот такую вот - ExitWindowsEx. И плюс не забудь, что она не стартанет без привилегий. То какой разговор? Я бы поблагодарил и закрыли бы топик.


Раз: 22168955 - "Вот тут если бы мне сказали, что функции уже неактуальны, а используй вот такую вот - ExitWindowsEx.".
Два: 22168960 - ссылка на готовый код на сях.
Три: 22168962 - объяснение почему не работает.
Четыре: 22169162 - готовый код на дельфи.

Там ещё ниже по тексту дофига подобного, но лени вычитывать.
Если ты вообще не знаешь английский язык, от слова "совсем", то, во-первых, надо было так и написать, а, во-вторых, ты явно не с того начал учиться программировать...
...
Рейтинг: 0 / 0
18.07.2020, 12:13
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39981244
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
Евгений Стронг,
Задача школы - научить человека самостоятельно думать и работать с источниками и информации, поскольку жизнь нельзя покрыть примерами из учебников. Меня в своё время научили, а тебя? И да программист должен изучать матчасть с которой работает. Для тебя это новость? Что может быть лучше и полнее первоисточника? MSDN + Рихтер = Библия от Windows. А насчет времени - ты бы потратил его гораздо меньше и с большей пользой если бы сразу глянул куда предложили, чем писать обиженные простыни. Или ты считаешь что другие должны за тебя гуглить или пререводить на делфи примеры из msdn?
...
Рейтинг: 0 / 0
18.07.2020, 12:15
| Ответить | Цитировать | Написать  
Delphi 10.3 Функция ExitWindows работает некорректно
    #39981373
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
Евгений Стронг> Мне никто ничего не должен. Если у тебя
Евгений Стронг> нет решения, то закрой топик и иди дальше.

Вот именно для таких и пишут подобные рекомендации:
https://sql.ru/forum/1061234/posobie-dlya-studentov-i-shkolnikov


Евгений Стронг> Но ты почему-то решил своим долгом - критиковать. Я просил тебя об этом?

Ему не нужна ни твоя просьба, ни твоё разрешение.
Так уж сложилось, что к тем кто хочет и тем более
требует "обязательно готовое решение/код", у многих
отношение довольно брезгливое и плохо скрываемое.

И да, снизьте тон, в т.ч. на будущее - шансы получить
"готовое решение" повысятся.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
18.07.2020, 19:57
| Ответить | Цитировать | Написать  
25 сообщений из 50, страница 2 из 2
  2  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Delphi 10.3 Функция ExitWindows работает некорректно
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39980921&tid=2038142]:
 0ms
get settings:
 7ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 154ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 86ms
get tp. blocked users:
 1ms
others: 199ms
total:  490ms
созд. / загр.: 490ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]