Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Delphi, Pascal Разработать математическую модель и алгоритм решения задачи, записать все на псевдокоде, оформить как подпрограмму, описать и привести значения всех необходимых входных данных, а также значение результата для тестового примера. Задано ломаную линию в виде пилы. И прямая линия вида y = kx + b. Сформировать один замкнутый контур, который будет содержать все контуры, которые отсекаются прямой... https://www.cyberforum.ru/ delphi-beginners/ thread1018482.html	Delphi DLL - В Проект Как можно встроить в проект .exe файл.dll так чтобы был один .exe подобие Portable! Хочу все мелкие файлы спрятать)
Delphi Упорядочивание массива Не могу понять, как решить такую задачу: Дана последовательность x1, x2 ... xn, упорядоченная в порядке возрастания и вещественное y. Найти такое k, что Xk< y<=Xk+1 https://www.cyberforum.ru/ delphi-beginners/ thread1018460.html	Delphi Найти сумму чисел s=1/(p+2)+ 2/(p+2)+…+ p/(p+2) https://www.cyberforum.ru/ delphi-beginners/ thread1018403.html Помогите, пожалуйста, составить код Delphi для следующих задач: Найти сумму чисел s=1/(p+2)+ 2/(p+2)+…+ p/(p+2) Дана строка. Найти количество вхождений букв А Заранее спасибо!
Canvas Delphi Всем добрый день,я тут новенький и у меня возникла проблема,нам дали задание на лабораторную сделать имитацию движения автомобилей по перекрёстке,а я в делфи не особо силён и не знаю как сделать.Я примерно знаю как сделать это задание с помощью фигур(shape),но вот как рисовать те же самые круги и тем более создать их анимацию с помощью canvas я не понимаю.Может кто нибудь объяснить как работать с...	Delphi Присвоить объект переменной https://www.cyberforum.ru/ delphi-beginners/ thread1018391.html Погуглив решил всё таки спросить. Как сделать в D7 что типа такого как в Python. a= appuifw.app.body и дальше уже пользоваться, присваивать значения ”а” нууу типа так: bar:= Form1.StatusBar1.Panels.Text; а дальше уже bar:= ‘Текст в статус бар’; Типа так. Вроде внятно выразил свою мысль. :rofl:
Delphi Delphi ft. Excel https://www.cyberforum.ru/ delphi-beginners/ thread1018381.html Добрый день всем. Есть код procedure TForm1.Button2Click(Sender: TObject); //Запись числового значения в ячейку var Range: Variant; begin Range:=Excel.ActiveSheet.Range; if Range.Value='A' then Range.Value:='1'; end;	Конвертор Delphi Конвертирование из тонн в кг
Delphi Многооконное приложение Нужна ваша помощь написать программу. Выглядеть должно так, три окошка. Открывается первое, и две кнопки "Открыть окно 2" и "Открыть окно 3", и так далее , чтобы из одного окна можно было перейти в любую другу https://www.cyberforum.ru/ delphi-beginners/ thread1018350.html	Delphi Упорядочивание Не могу понять, как решить такую задачу: Дана последовательность x1, x2 ... xn, упорядоченная в порядке возрастания и вещественное y. Найти такое k, что Xk< <=Xk+1 https://www.cyberforum.ru/ delphi-beginners/ thread1018296.html
Создать программу проверки пароля Delphi Создать программу проверки пароля, если верный - переход в другую форму. С использованием массивов.	Delphi "Важна тема" - в dbgrid Такой вот вопрос, в dbgrideh есть много разных записей, который юзер выбирает для дальнейшего использования. А можно ли как-то сделать, чтобы определенные 3-4 строчки всегда были вверху грида, ну и например выделены? ps этот форум работает с mysql, и у него как то же можно темы прилепить https://www.cyberforum.ru/ delphi-beginners/ thread1018260.html

droider

4912 / 2781 / 853

Регистрация: 04.10.2012

Сообщений: 10,121

25.11.2013, 17:43

выключение компьютера - Delphi - Ответ 5388206

25.11.2013, 17:43. Показов 927. Ответов 3

Метки (Все метки)

Ответ

Процедура выключения машины

Delphi

procedure ShutdownSystem(Flags: UINT);
var
  handle_: THandle;
  n: DWORD;
  luid: TLargeInteger;
  priv: TOKEN_PRIVILEGES;
  ver: TOSVERSIONINFO;
begin
  ver.dwOSVersionInfoSize := Sizeof(ver);
  GetVersionEx(ver);
  if ver.dwPlatformId=VER_PLATFORM_WIN32_NT then
  begin
    if OpenProcessToken(GetCurrentProcess,
       TOKEN_ADJUST_PRIVILEGES, handle_) then
      if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', luid) then
      begin
        priv.PrivilegeCount := 1;
        priv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
        priv.Privileges[0].Luid := luid;
        AdjustTokenPrivileges(handle_, false, priv, 0, nil, n);
      end
  end;
  if not ExitWindowsEx(Flags,1) then writeln('Операция прервана');
 
end;

Delphi

// ваши операции, выполняемые в программе
...............
//после
if CheckBox1.Checked then ShutdownSystem(EWX_POWEROFF); //выключаем

Вернуться к обсуждению:
выключение компьютера Delphi

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

25.11.2013, 17:43

Готовые ответы и решения:

Выключение компьютера
Здравствуйте, мне нужно чтоб программа выключала компьютер в час ночи, и чтобы его или нельзя было...

Время выключение компьютера
Нашел на мсдн GetSystemMetrics(SM_SHUTTINGDOWN). Решил попробовать. Но что-то пошло не так... ...

Перезагрузка\выключение компьютера
Уважаемые форумчане. Срочно нужна прога которая перезагружает или выключает комп по наступлении...

ServerCocket, удалённое выключение компьютера.
Извение что не по теме ,но очень нужна помощь! Как сделать чтобы компонент ServerCocket выключал...

	25.11.2013, 17:43

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

25.11.2013, 17:43

Помогаю со студенческими работами здесь

Выключение компьютера кнопкой на форме
Как выключить компьютер с помощью кнопки на форме.

Выключение пк
подскажите как выключить пк при нажатии на кнопку ? Но чтоб при выключении все окна открытые в...

Выключение ПК программно
Тут вот такая штука... мне нужно собрать воедино куски одной простенькой задачки... Задумка вот...

Выключение перезагрузка
Как сделать выключение и перезагрузку с завершением всех программ Чтобы не выскакиволо это...

Наверх