![]() |
Добро пожаловать, гость ( Вход | Регистрация )
![]() |
-=CHE@TER=- |
![]()
Сообщение
#1
|
Walter Sullivan ![]() ![]() ![]() Группа: Root Admin Сообщений: 1,360 Регистрация: 4-February 08 Пользователь №: 3 Спасибо сказали: 313 раз(а) ![]() |
Delphi programs in API.
На английском. Очень подробно всё описано, плюс есть исходные коды готовых юнитов. Например SmallUtil, в котором есть все частоиспользуемые подпрограммы, и который в размере меньше, чем SysUtils (автор так утверждает - я не проверял). |
![]() ![]() |
-=CHE@TER=- |
![]()
Сообщение
#2
|
Walter Sullivan ![]() ![]() ![]() Группа: Root Admin Сообщений: 1,360 Регистрация: 4-February 08 Пользователь №: 3 Спасибо сказали: 313 раз(а) ![]() |
Сделал себе замечательный srvrun.bat для перезапуска локальных служб (положить в PATH):
CODE @echo off if _%1 == _ goto quit net start %1 2>nul if errorlevel 2 goto stop goto quit :stop net stop %1 :quit При первом вызове запускает службу, при втором останавливает: QUOTE C:\Work\>srvrun mysql Служба "MySQL" запускается. Служба "MySQL" успешно запущена. C:\Work\>srvrun mysql Служба "MySQL" останавливается. Служба "MySQL" успешно остановлена. Немного поясню как работает: при вызове пытается запустить службу и, если она уже запущена (errorlevel = 2), то пытается её остановить. Строчка "2>nul" подавляет вывод ошибок о том, что служба уже запущена. К слову сказать если имя службы указано неверно (например myslq), то errorlevel тоже будет равен 2, однако, и сообщение вылезет соответствующее при остановке службы: QUOTE C:\Work\>srvrun myslq Системная ошибка 1060. Указанная служба не установлена. Не забываем, что службы содержащие пробелы в имени необходимо заключать в двойные кавычки: srvrun "Gene6 FTP Server" |
![]() ![]() |
Упрощённая версия | Сейчас: 25th August 2024 - 06:55 |