Добро пожаловать на Pawno-Info.Ru - Портал о программировании №1

Присоединяйтесь к нам сейчас, чтобы получить доступ ко всем нашим функциям и ответы на все интересующие Вас вопросы. После регистрации Вы сможете создавать темы, публиковать ответы, влиять на репутацию пользователей форума, обмениваться личными сообщениями и многое другое. Это быстро и совершенно бесплатно, так чего же Вы ждете?

Маппинг для сервера

Если вы хотите обновить Ваш сервер новыми доработками - то зайдите в наш раздел. Большой выбор готовых решений от наших пользователей

Моды для сервера

Огромный выбор различных модификаций для Вашего сервера. Пролистайте эти темы! Возможно именно там Вы найдете то, что искали уже давно.

San Andreas Multiplayer Mobile

Хотите разнообразить свою игру в San Andreas для телефона? Смелее в наш раздел. Играйте с удовольствием

Автостартер серверов SA-MP на Windows

Автостартер серверов SA-MP на Windows [Paid] 1.3

Для просмотра других записей требуется обновить аккаунт.

OKStyle

Адвокат по делам семейным
Команда форума
Administrator
Wiki Team
Регистрация
4 Мар 2011
Сообщения
6,303
Лучшие ответы
115
Репутация
1,897
Возраст
33
Адрес
Оренбург
  • Спасибо от администрации
  • Помощник
  • Pawn-разработчик
  • Писатель
  • Победитель
  • Активный модератор
OKStyle разместил(а) новый ресурс:

Автостартер серверов SA-MP на Windows - Автостартер серверов SA-MP под ОС Windows

Описание: побродив по интернету, так и не нашёл рабочего рестартера для Windows-серверов. Решил сделать самостоятельно. Реализация на bat-файле. Упаковано в exe для удобства.

Принцип работы: файл запускает сам себя в своём же окне, и при неудачном поиске процесса сервера запускает его.

Установка: положить программу в папку с сервером и запустить её.

Баг: погасить процесс автостарта можно только через диспетчер задач.

Автор: OKStyle, Romanius (иконка)
Посмотреть страницу этого ресурса...

MIASO написал(а):
Чтобы не извращаться с bat-файлами, код на делфи:

PHP:
program restarter;
{$APPTYPE CONSOLE}
uses Windows;

Procedure Main;
var StartInfo:TStartupInfo;
ProcInfo:TProcessInformation;
Path:array [0..MAX_PATH] of AnsiChar;
begin
ZeroMemory(@StartInfo, SizeOf(StartInfo));
StartInfo.cb:=SizeOf(StartInfo);
GetCurrentDirectory(MAX_PATH, Path);
repeat
CreateProcessA('samp-server.exe','', nil, nil, True, CREATE_DEFAULT_ERROR_MODE,
nil, Path, StartInfo, ProcInfo);
WaitForSingleObject(ProcInfo.hProcess, INFINITE);
Sleep(1000);
until false;
end;

begin
main;
end.
Данный код запускает samp-server.exe и ждет пока он завершиться, после чего ждет 1 сек. и снова запускает.
 
shape1
shape2
shape3
shape4
shape7
shape8
Сверху Снизу