Сообщение от
Super_Man
Ок стайл.слежу за всеми твоими разработками. и хочу сказать Ты реально крутой программист.
Нормальны программист сделал бы примерно вот так, а не извращался бы с bat-файлами
Код на делфи:
Код:
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 сек. и снова запускает.
Скомпелированный файл: http://rghost.ru/38075210
Кинуть в папку сервера и запустить.