Я имею два поля для редактирования: Edit1 и Edit2
Также имею кнопку Button1
Мне нужно, чтоб при нажатии на кнопку Button1 выполнились такие действия:
1. Сбор информации из полей: Edit1 и Edit2 (информация - время, которое записано в обоих полях, часы и минуты, например: 17:15)
2. Запись этого времени в реестр HKEY_CURRENT_USER\Software\Comp-OFF\Time (создать два параметра с временем - один параметр = Edit1 и второй параметр = Edit2)
3. Запись в HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run строковой параметр с именем: Comp-OFF и значением: "Путь к программе + /serv.exe"
Такое вроде бы можно сделать при помощи:
My.Computer.Registry.SetValue _
("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\", _
"Comp-OFF", _
Application.StartupPath & "\serv.exe")
Но я не уверен.
4. Выключение компьютера (shutdown -s -f -t 0 - кажется так).
В общем и все.
Я уже написал код:
procedure TForm1.Button1Click(Sender: TObject);
var
t1: real; // время как дробное число
t2: real; // время как дробное число
hh1 : integer; // время, часы
min1 : integer; // время, минуты
hh2 : integer; // время, часы
min2 : integer; // время, минуты
begin
// получить исходные данные из полей ввода
t1 := StrToFloat(Edit1.Text); t2 := StrToFloat(Edit2.Text);
// предварительные преобразования
hh1 := Trunc(t1); // кол-во часов — это целая часть числа t
min1 := Trunc(t1*100) mod 100;
// кол-во минут — это дробная часть
// числа t1
hh2 := Trunc(t2); // кол-во часов — это целая часть числа t2
min2 := Trunc(t2*100) mod 100;
// кол-во минут — это дробная часть
// числа t2
А как дальше я не знаю(((
Если в моем коде имеется ошибка, пожалуйста исправьте.
Я только стал изучать Delphi, помогите новичку)))
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.