2013-11-23 3 views
1

Как проверить порт является бесплатным/открытым в создании inno setup.Как проверить порт бесплатно/открыть в скрипте настройки inno

Например я попытался получить версию операционной системы GetWindowsVersionString()

Есть ли какая-либо опция доступна, чтобы проверить, если порт 8080 свободен для установки TOMCAT службы.

+1

Подождите, как 'GetWindowsVersionString', связанные с тем, что вы хотите сделать? Во всяком случае, это уже было ['ask here'] (http://stackoverflow.com/q/12844955/960757). – TLama

+0

@TLama Прежде всего, спасибо за ваш предыдущий пост. Приходите на ур, мое программное обеспечение не будет работать под Windows 2000, поэтому я получу ur ver id, а затем процесс должен установить или нет. –

+0

@TLama Можете ли вы поделиться примером кода, устанавливающим двоичный код mysql и tomcat в качестве службы Windows. –

ответ

0

вы можете использовать свою функцию, чтобы проверить порт свободен/открыт в Inno Setup Престола:

function CheckPortOccupied(Port:String):Boolean; 
var 
ResultCode: Integer; 
begin 
Exec(ExpandConstant('{cmd}'), '/C netstat -na | findstr'+' /C:":'+Port+' "', '', 0,ewWaitUntilTerminated, ResultCode); 
if ResultCode <> 1 then 
begin 
Log('this port('+Port+') is occupied'); 
Result := True; 
end else 
begin 
Result := False; 
end; 
end;