[maratikus]

Выдает ошибки Такие:
[Warning] Firewall2.pas(109): Return value of function 'IsFirewallEnabled' might be undefined
[Warning] Firewall2.pas(122): Return value of function 'IsExceptionsNotAllowed' might be undefined
[Warning] Firewall2.pas(135): Return value of function 'IsNotificationsDisabled' might be undefined
[Warning] Firewall2.pas(150): Return value of function 'IsUnicastResponsestoMulticastBroadcastDisabled' might be undefined
[Warning] Firewall2.pas(165): Return value of function 'IsRemoteAdministrationEnabled' might be undefined
[Warning] Firewall2.pas(180): Return value of function 'IsAllowInboundEchoRequest' might be undefined
[Warning] Firewall2.pas(195): Return value of function 'IsAllowInboundMaskRequest' might be undefined
[Warning] Firewall2.pas(210): Return value of function 'IsAllowInboundRouterRequest' might be undefined
[Warning] Firewall2.pas(240): Return value of function 'IsAllowOutboundDestinationUnreachable' might be undefined
[Warning] Firewall2.pas(255): Return value of function 'IsAllowOutboundPacketTooBig' might be undefined
[Warning] Firewall2.pas(255): Return value of function 'IsAllowOutboundPacketTooBig' might be undefined
[Warning] Firewall2.pas(270): Return value of function 'IsAllowOutboundParameterProblem' might be undefined
[Warning] Firewall2.pas(286): Return value of function 'IsAllowOutboundSourceQuench' might be undefined
[Warning] Firewall2.pas(301): Return value of function 'IsAllowOutboundTimeExceeded' might be undefined
[Warning] Firewall2.pas(316): Return value of function 'IsAllowRedirect' might be undefined
[Warning] Firewall2.pas(583): Return value of function 'DeleteAnAuthorizedApplication' might be undefined
[Warning] Firewall2.pas(620): Return value of function 'IsApplicationAuthorized' might be undefined
[Warning] Firewall2.pas(646): Return value of function 'IsApplicationAuthorizedIsActive' might be undefined

[maratikus]

Вот и сама функция можете посмотреть помогите плииис

[Yurk@]

это не ошибки, а предупреждения. с ними можно (но не желательно) работать

[ChinYan]

Это не ошибки, а предупреждения. "Возможно, возвращаемое значение не установлено"

[maratikus]

Спасибо за ответ но я тут новичок можете поподробнее какое возвращаемое значение

[Bargest]

Код:

result := 0xDEADBEEF;

[NumLock]

а где вообще секция implementation ?

[maratikus]

он есть я его просто не внес сюда

[poli-smen]

Сообщение от maratikus

он есть я его просто не внес сюда

В данном случае компилятор правильно ругается.
Возьмём любую твою функцию, например:

Код:

Function IsFirewallEnabled:boolean;
Var
  objFirewall,objPolicy:OleVariant;
begin
  Try
    objFirewall := CreateOLEObject('HNetCfg.FwMgr');
    objPolicy := objFirewall.LocalPolicy.CurrentProfile;
    Result:=objPolicy.FirewallEnabled;
  except
  end;
end;

Если например сработает исключение на первой строчке (там где CreateOLEObject), мы минуя присвоение результата сразу прыгнем на except где тихонько обработаем это исключение. И что в таком случае вернёт твоя функция? - Мусор. Вот компилятор и предупреждает, что эта функция может вернуть непредсказуемый результат.

[Yurk@]

т.е. для той же функции

Код:

Function IsFirewallEnabled:boolean;
Var
  objFirewall,objPolicy:OleVariant;
begin
  Try
    objFirewall := CreateOLEObject('HNetCfg.FwMgr');
    objPolicy := objFirewall.LocalPolicy.CurrentProfile;
    Result:=objPolicy.FirewallEnabled;
  except
  end;
end;

(например) тебе нужно в начале самой функции изначально определить результат по дефолту, типа:

Код:

Function IsFirewallEnabled:boolean;
Var
  objFirewall,objPolicy:OleVariant;
begin
Result:=False;
  Try
...
end;