Хамик
Старожил
Как создать процедуру с собственной функцией запуска? Нужно воссоздать вот такое:
Как воссоздать процедуру DoServiceInstall? В данном примере идет установка службы дефрагментации, где, по моему мнению:
{app}\DfSdkS.exe - программа
DfSdkS - ключ установки сервиса
Defragmentation-Service - имя
Defrag Service - powered by mst software - описание
Помогите, пожалуйста. У кого какие идеи будут? У меня вот такое в голову пришло
Знаю что бред, потому что в программировании не знаюсь и поэтому прошу помощи.
Код:
AfterInstall: "DoServiceInstall('{app}\DfSdkS.exe', 'DfSdkS', 'Defragmentation-Service', 'Defrag Service - powered by mst software')";
{app}\DfSdkS.exe - программа
DfSdkS - ключ установки сервиса
Defragmentation-Service - имя
Defrag Service - powered by mst software - описание
Помогите, пожалуйста. У кого какие идеи будут? У меня вот такое в голову пришло
Код:
procedure DoServiceInstall;
var
FileName, Params, SERVICE_DISPLAYNAME, SERVICE_DESCIPTION: string;
ResultCode: Integer;
begin
Exec(ExpandConstant('FileName'), 'Params', 'SERVICE_DISPLAYNAME', 'SERVICE_DESCIPTION', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
end;