unit_const.pas

网上天气预报,可以实时查看不地的天气情况,界面美观大方,欢迎下载

unit Unit_Const;

interface
uses
    Messages;
const
    WM_WeatherMsg=WM_USER+200;
var
   WeatherUrl : String;
   RainUrl    : String;
   MobileUrl  : String;
   ImgUrl     : String;
   IPUrl      : String;
   CityName   : String;
   IP         : String;
   IconVis    : Boolean;
   HotKey     : String;
   AppPath    : String;
implementation

end.