desktop.dpr

来自「Clock 桌面时钟 日历 阴历 看到的delphi程序 转发」· DPR 代码 · 共 41 行

program Desktop;

uses
  Forms,
  MacForm,
  IpcThrd,
  Windows,
  Main in 'Main.pas' {frmMain},
  Timer in 'Timer.pas' {frmTime},
  Option in 'Option.pas' {frmOption};

{$R Desktop.res}
{$R DelphiXP.res}
const
  sMutex = 'DesktopMutex';
begin
  if not MutexExist(sMutex) then
  begin
    with TMutex.Create(sMutex) do
    begin
      Randomize;

      with application do
      begin
        Initialize;

        SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE)
          or WS_EX_TOOLWINDOW);
        Icon.Handle := LoadIcon(MainInstance, MAKEINTRESOURCE(100));

        CreateForm(TfrmTime, frmTime);
        CreateForm(TfrmOption, frmOption);

        Run;
      end;
      free;
    end;
  end;
end.