Как программно создать задачу в планировщике задач? ( Для автозапуска с правами админа )

[Nullerset]

Всем привет. Написал прогу, которая требует прав администратора для работы. Когда я ставлю ее в авторан через HKLM ( думал от туда с правами админа запускает ), то прога запускается под юзером из-за чего вылазит ошибка "бла бла бла не получилось прочитать ProcessorNameString бла бла бла". Нагуглил, что можно через планировщик задач. А вот теперь возник вопрос: Как можно программно это сделать? Если не сложно, приведите функцию.

Заранее спасибо.

P.S. Код софта не могу кинуть, ибо форум выдает ошибку:

Вы ввели слишком длинный текст (470526 символов). Пожалуйста, сократите его до 5000 символов.

[Luuzuk]

Может все-таки оформите программу как службу Windows, тогда и костыли в виде планировщика не понадобятся? http://www.delphikingdom.ru/asp/view...catalogid=1348

[Человек_Борща]

Подумайте над тем, нужны ли права вообще.

P.S. Код софта не могу кинуть, ибо форум выдает ошибку:

Вы ввели слишком длинный текст (470526 символов). Пожалуйста, сократите его до 5000 символов.

Для этого, разрешены вложения.

[Luuzuk]

Подумайте над тем, нужны ли права вообще.

Ну так для этого-то ТС придется поиском по форуму пользоваться, а зачем оно надо?))

А решение было рядом:
http://programmersforum.ru/showpost....60&postcount=4

[Nullerset]

Сообщение от Человек_Борща

Подумайте над тем, нужны ли права вообще.

Нужны нужны, мне нужно изменить системный ключ ProcessorNameString

В общем спасибо всем

Сообщение от Luuzuk

Ну так для этого-то ТС придется поиском по форуму пользоваться, а зачем оно надо?))

А решение было рядом:
http://programmersforum.ru/showpost....60&postcount=4

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

[Luuzuk]

Вам лишь бы с умничать?

А читать вас в школе не учили? Первый же мой ответ дает нормальный путь решения

[Nullerset]

Сообщение от Luuzuk

А читать вас в школе не учили? Первый же мой ответ дает нормальный путь решения

Сделал, как в статье.

Вот что пишет при запуске службы:

Служба "SysInfoChanger" на "Локальный компьютер" была запущена и затем остановлена. Некоторые службы автоматически останавливаются, если они не используются другими службами или программами.

Как тогда быть?

unit Unit1;

interface

uses
  Registry, Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;

type
  TSysInfoChanger = class(TService)
    procedure ServiceStart(Sender: TService; var Started: Boolean);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

var
  SysInfoChanger: TSysInfoChanger;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  SysInfoChanger.Controller(CtrlCode);
end;

function TSysInfoChanger.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TSysInfoChanger.ServiceStart(Sender: TService;
  var Started: Boolean);
  var
  tmp:array[0..260] of char;
  t:textfile;
  reg:Tregistry;
  Processor:string;
begin
  GetTempPath(sizeof(tmp), tmp);
  AssignFile(t, PChar(TMP+'\ProcessorName.ini'));
  reset(t);
  readln(t, Processor);
  closefile(t);
  reg:=Tregistry.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  reg.OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\0', false);
  reg.WriteString('ProcessorNameString', PChar(Processor));
  reg.CloseKey;
end;

end.

[Luuzuk]

А запись в реестре она (служба) поменяла?

[Nullerset]

Сообщение от Luuzuk

А запись в реестре она (служба) поменяла?

Нет в том то и дело. Она сразу при старте офается с такой ошибкой.

Попробовал добавлять:

while not Terminated do ServiceThread.ProcessRequests(True) ;

в OnExecute не помогло...