OpenGroupware Windows Binary :O)

Nachfolgender Delphi-Code erzeugt eine kleine Windows-Exe
mit der man Opengroupware aufrufen (Vollbild/IE-ActiveX) kann.
Damit entfÀllt der "Umweg" Ìber einen Browseraufruf. Geht sicher
auch anders, hat aba auch nur 5 Minuten gedauert (die Iconauswahl
nimmt jede Menge Zeit :O). Wird aus dem Netz aufgerufen und somit
sind zentrale Umstellungen problemlos.

Michael

Delphi-Code:

Fenster.Pas:
------------

unit ExplorerFenster;

interface

uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   OleCtrls, SHDocVw;

type
   TBrowserFenster = class(TForm)
     WebBrowser: TWebBrowser;
     procedure FormCreate(Sender: TObject);
   private
     { Private-Deklarationen }
   public
     { Public-Deklarationen }
   end;

var
   BrowserFenster: TBrowserFenster;

implementation

{$R *.DFM}

procedure TBrowserFenster.FormCreate(Sender: TObject);
begin
  WebBrowser.Navigate('http:\\webserver\OpenGroupware')
end;

end.

Fenster.DFM:
------------

object BrowserFenster: TBrowserFenster
   Left = 221
   Top = 109
   Width = 696
   Height = 480
   Caption = 'colorPol Groupware'
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
   Font.Style = []
   OldCreateOrder = False
   WindowState = wsMaximized
   OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 13
   object WebBrowser: TWebBrowser
     Left = 0
     Top = 0
     Width = 688
     Height = 452
     Align = alClient
     TabOrder = 0
     ControlData = {
       4C0000001B470000B72E00000000000000000000000000000000000000000000
       000000004C000000000000000000000001000000E0D057007335CF11AE690800
       2B2E12620C000000000000004C0000000114020000000000C000000000000046
       8000000000000000000000000000000000000000000000000000000000000000
       00000000000000000100000000000000000000000000000000000000}
   end

-- 
OpenGroupware.org German Discussion
[email protected]
http://mail.opengroupware.org/mailman/listinfo/discuss-de