Форум: "Потрепаться";
Текущий архив: 2003.08.11;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c