weather.dpr

来自「网上天气预报,可以实时查看不地的天气情况,界面美观大方,欢迎下载」· DPR 代码 · 共 29 行

program Weather;

uses
  Windows,
  Forms,
  Unit_Weather in 'Unit_Weather.pas' {Frm_Weather},
  Unit_About in 'Unit_About.pas' {Frm_About},
  Unit_System in 'Unit_System.pas' {Frm_System},
  Unit_Const in 'Unit_Const.pas',
  Unit_thread in 'Unit_thread.pas';

{$R *.res}
var
  WeatherHandle :Hwnd;
  WeatherRet    :Integer;
begin
  Application.Initialize;
  Application.Title := 'Weather';
  WeatherHandle:=CreateMutex(nil,false,'Weather');
  WeatherRet:=GetLastError;
  if WeatherRet<>ERROR_ALREADY_EXISTS then
  begin
       Application.CreateForm(TFrm_Weather, Frm_Weather);
       Application.Run;
  end else
       Application.MessageBox('[Weather]程序已经在运行中！','警告',MB_OK+MB_ICONSTOP);
  ReleaseMutex(WeatherHandle);
end.