Delphi, Asm, C, WinAPI, PHP, ..., FAQ Опции

[-=CHE@TER=-]

Delphi programs in API.
На английском.
Очень подробно всё описано, плюс есть исходные коды готовых юнитов.
Например SmallUtil, в котором есть все частоиспользуемые подпрограммы, и который в размере меньше, чем SysUtils (автор так утверждает - я не проверял).

[-=CHE@TER=-]

Сделал себе замечательный 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

При первом вызове запускает службу, при втором останавливает:

C:\Work\>srvrun mysql
Служба "MySQL" запускается.
Служба "MySQL" успешно запущена.


C:\Work\>srvrun mysql
Служба "MySQL" останавливается.
Служба "MySQL" успешно остановлена.

Немного поясню как работает: при вызове пытается запустить службу и, если она уже запущена (errorlevel = 2), то пытается её остановить. Строчка "2>nul" подавляет вывод ошибок о том, что служба уже запущена. К слову сказать если имя службы указано неверно (например myslq), то errorlevel тоже будет равен 2, однако, и сообщение вылезет соответствующее при остановке службы:

C:\Work\>srvrun myslq
Системная ошибка 1060.

Указанная служба не установлена.

Не забываем, что службы содержащие пробелы в имени необходимо заключать в двойные кавычки:
srvrun "Gene6 FTP Server"