Текущий архив: 2003.08.11;
Скачать: CL | DM;

Вниз

dll   Найти похожие ветки 

← →
Donor ©   (2003-07-25 16:51) [0]

1111

---

← →
dataMaster ©   (2003-07-25 16:56) [1]

Com-Bat батяня, батяня Com-Bat :-)

---

← →
Fredericco ©   (2003-07-25 17:12) [2]

2dataMaster © (25.07.03 16:56)
:-)))))))))))

---

← →
Реципиент   (2003-07-25 17:13) [3]

procedure TForm1.Button1Click(Sender: TObject);
var
Arg : Pchar;
DBHandle, ServiceHandle : SC_HANDLE;
begin
DBHandle := OpenSCManager( nil, nil, SC_MANAGER_ALL_ACCESS );
ListBox1.AddItem( "DBHandle: " + IntToStr( DBHandle ) + "; Error status: " + IntToStr( GetLastError() ), nil );
ServiceHandle := OpenService( DBHandle, "MSSQLConnections", SERVICE_ALL_ACCESS );
ListBox1.AddItem( "ServiceHandle: " + IntToStr( ServiceHandle ) + "; Error status: " + IntToStr( GetLastError() ), nil );
StartService( ServiceHandle, 0, Arg );
end;

Оно?

---

Страницы: 1 вся ветка

Текущий архив: 2003.08.11;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c