Цитата(oleg2s @ 28.5.2012, 06:45  ) | | А что я могу написать, если функция не описана и выдает ошибки? |
понятно. Плохо, что не воспользовался| Цитата(kami @ 25.5.2012, 18:25 ) | | JEDI API (правда, там объявлены не все структуры и константы, воспринимаемые рассматриваемой функцией, но того что есть хватит) |
Используемые типы:
| Код |
SERVICE_DESCRIPTION = record
lpDescription: PChar;
end;
TServiceDescription = SERVICE_DESCRIPTION;
PServiceDescription = ^SERVICE_DESCRIPTION;
TChangeServiceConfig2 = function(scHandle: SC_HANDLE; dwInfoLevel: DWord; lpInfo: pointer): BOOL; stdcall;
|
глобальные переменные:
| Код |
var
advapi32: THandle;
ChangeServiceConfig2: TChangeServiceConfig2;
|
Инициализация функций. Я почти всегда (не знаю почему) использую для этого секцию инициализации:
| Код |
initialization
advapi32 := LoadLibrary('advapi32.dll');
if advapi32 <> 0 then
ChangeServiceConfig2 := GetProcAddress(advapi32, 'ChangeServiceConfig2W');
else
ChangeServiceConfig2 := nil;
finalization
FreeLibrary(advapi32);
|
ну и сама работа:
| Код |
function TService.GetServiceHandles(var SCManagerHandle, ServiceHandle: THandle): Boolean;
begin
Result := False;
SCManagerHandle := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
if SCManagerHandle <> 0 then
begin
ServiceHandle := OpenService(SCManagerHandle, PChar(Name), SERVICE_ALL_ACCESS);
if ServiceHandle <> 0 then
Result := True
else
CloseServiceHandle(SCManagerHandle);
end;
end;
procedure TService.FreeServiceHandles(SCManagerHandle, ServiceHandle: THandle);
begin
CloseServiceHandle(ServiceHandle);
CloseServiceHandle(SCManagerHandle);
end;
procedure TService.SetDescription(const Value: String);
var
Desc: TServiceDescription;
hSCM, hService: THandle;
begin
if Assigned(ChangeServiceConfig2) then
if GetServiceHandles(hSCM, hService) then
begin
FDescription := Value;
//Desc := AllocMem(SizeOf(TServiceDescription));
Desc.lpDescription := AllocMem(Length(Description) * SizeOf(Char) + SizeOf(Char));
Move(Description[1], Desc.lpDescription^, Length(Description) * SizeOf(Char));
ChangeServiceConfig2(hService, SERVICE_CONFIG_DESCRIPTION, @Desc);
FreeMem(Desc.lpDescription);
//FreeMem(pDesc);
FreeServiceHandles(hSCM, hService);
end;
end;
|
|
) толкать.