you can use my function to check port availability
cm.:
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;
source share