object FDiags: TFDiags Left = 244 Top = 111 BorderIcons = [biSystemMenu] BorderStyle = bsDialog ClientHeight = 283 ClientWidth = 492 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object pan2: TPanel Left = 0 Top = 0 Width = 492 Height = 283 BevelOuter = bvNone TabOrder = 1 Visible = False object lblSelectDest1: TLabel Left = 144 Top = 8 Width = 337 Height = 33 AutoSize = False Caption = 'W�hlen Sie jetzt das Verzeichnis oder Laufwerk aus, auf dem Sie ' + 'WinInBlack99 installieren m�chten und klicken Sie auf "Weiter".' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object lblDestDesc: TLabel Left = 144 Top = 187 Width = 129 Height = 16 AutoSize = False Caption = 'WIB99 Verzeichnis-Name:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblAppDest: TLabel Left = 144 Top = 221 Width = 321 Height = 16 AutoSize = False Caption = 'D:\BaqSoft\setup' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Visible = False end object lblInstDir: TLabel Left = 144 Top = 215 Width = 105 Height = 16 AutoSize = False Caption = 'Installation-Pfad:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Image2: TImage Left = 9 Top = 9 Width = 115 Height = 225 AutoSize = True Picture.Data = {} end object Bevel3: TBevel Left = 8 Top = 8 Width = 118 Height = 228 end object Bevel12: TBevel Left = 8 Top = 243 Width = 473 Height = 2 end object btnBack2: TBitBtn Left = 318 Top = 250 Width = 81 Height = 25 Caption = '< &Zur�ck' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 OnClick = btnBack2Click end object btnNext2: TBitBtn Left = 400 Top = 250 Width = 81 Height = 25 Caption = '&Weiter >' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 OnClick = btnNext2Click end object dcb: TDriveComboBox Left = 144 Top = 40 Width = 321 Height = 19 DirList = dlb Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnChange = dcbChange end object edAppDestNew: TEdit Left = 272 Top = 184 Width = 193 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnChange = edAppDestNewChange end object edAppDrive: TEdit Left = 328 Top = 216 Width = 17 Height = 21 TabOrder = 6 Visible = False OnChange = edAppDriveChange end object edAppDir: TEdit Left = 360 Top = 216 Width = 17 Height = 21 TabOrder = 7 Visible = False OnChange = edAppDirChange end object dlb: TDirectoryListBox Left = 144 Top = 64 Width = 321 Height = 113 DirLabel = lblAppDest Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 ParentFont = False TabOrder = 1 OnChange = dlbChange end object Edit4: TEdit Left = 232 Top = 212 Width = 233 Height = 21 Color = clBtnFace ReadOnly = True TabOrder = 3 end end object pan3: TPanel Left = 0 Top = 0 Width = 492 Height = 283 Align = alClient BevelOuter = bvNone TabOrder = 2 Visible = False object lblInstDesc: TLabel Left = 152 Top = 192 Width = 225 Height = 13 AutoSize = False Caption = 'Installation:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Image1: TImage Left = 9 Top = 9 Width = 115 Height = 225 AutoSize = True Picture.Data = {} end object Bevel2: TBevel Left = 8 Top = 8 Width = 118 Height = 228 end object Bevel4: TBevel Left = 8 Top = 243 Width = 473 Height = 2 end object ktMultiBevel1: TktMultiBevel Left = 144 Top = 184 Width = 337 Height = 50 end object Label15: TLabel Left = 8 Top = 256 Width = 311 Height = 13 Caption = 'Copyright � 1998 by BaqSoft Software Labs. All Rights Reserved.' end object ProgressBar1: TProgressBar Left = 152 Top = 211 Width = 321 Height = 13 Min = 0 Max = 100 TabOrder = 0 end object Panel1: TPanel Left = 144 Top = 8 Width = 337 Height = 169 BevelOuter = bvNone BorderStyle = bsSingle TabOrder = 1 object Image3: TImage Left = 0 Top = 0 Width = 333 Height = 165 Align = alClient Picture.Data = {} end object FileListbox1: TListBox Left = 32 Top = 72 Width = 121 Height = 97 ItemHeight = 13 TabOrder = 0 Visible = False end end end object pan1: TPanel Left = 0 Top = 0 Width = 492 Height = 283 Align = alClient BevelOuter = bvNone Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 Visible = False object Bevel1: TBevel Left = 8 Top = 8 Width = 118 Height = 228 end object ImageSetup: TImage Left = 9 Top = 9 Width = 115 Height = 225 AutoSize = True Picture.Data = {} end object lblMessage1: TLabel Left = 144 Top = 8 Width = 304 Height = 13 Caption = 'Willkommen zum Setup von BaqSoft WinInBlack99 Version 2.1! ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object lblMessage2: TLabel Left = 144 Top = 32 Width = 337 Height = 41 AutoSize = False Caption = 'Dieses Programm wird auf Ihrem Rechner installieren. Wir empfehl' + 'en Ihnen alle anderen Programme zu schlie�en, um dieses Programm' + ' zu installieren.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object lblMessage3: TLabel Left = 144 Top = 84 Width = 337 Height = 29 AutoSize = False Caption = 'Dr�cken Sie auf Abbrechen, um dieses Programm zu verlassen. Mit ' + 'Weiter wird die Installation fortgefahren.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object lblMessage5: TLabel Left = 144 Top = 176 Width = 337 Height = 57 AutoSize = False Caption = 'ACHTUNG: Dieses Programm ist international urheberrechtlich gesc' + 'h�tzt. Unautorisiere Vervielf�lltigung oder Vertrieb von diesem ' + 'Programm oder Teile des Programms stellen eine kriminelle Straft' + 'at dar und werden zivil- und strafrechtlich verfolgt.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object Bevel5: TBevel Left = 8 Top = 243 Width = 473 Height = 2 end object Bevel13: TBevel Left = 144 Top = 24 Width = 337 Height = 2 end object btnNext: TBitBtn Left = 400 Top = 250 Width = 81 Height = 25 Caption = '&Weiter >' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = btnNextClick end object btnCancel: TBitBtn Left = 318 Top = 250 Width = 81 Height = 25 Caption = '&Abbrechen' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = btnCancelClick end object btnAbout: TButton Left = 8 Top = 250 Width = 81 Height = 25 Caption = '�ber...' TabOrder = 2 OnClick = btnAboutClick end end object LicencePl: TPanel Left = 0 Top = 0 Width = 492 Height = 283 Align = alClient BevelOuter = bvNone Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 Visible = False object Bevel6: TBevel Left = 8 Top = 8 Width = 118 Height = 228 end object Image4: TImage Left = 9 Top = 9 Width = 115 Height = 225 AutoSize = True Picture.Data = {} end object Label1: TLabel Left = 144 Top = 8 Width = 329 Height = 30 AutoSize = False Caption = 'Lesen Sie bitte folgenden Lizenzvertrag. Mit den Bildlauftasten ' + 'k�nnen Sie den Vertrag durchbl�ttern:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object Bevel7: TBevel Left = 8 Top = 243 Width = 473 Height = 2 end object Label2: TLabel Left = 144 Top = 183 Width = 329 Height = 42 AutoSize = False Caption = 'Sie m�ssen mit allen Punkte des Lizenzvertrages einverstanden se' + 'in. Falls Sie dem Vertrag nicht zustimmen sollten, dann klicken ' + 'Sie bitte auf Nein. Die Software l��t sich nicht dann nicht mehr' + ' installieren.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object BitBtn1: TBitBtn Left = 392 Top = 250 Width = 89 Height = 25 Caption = '&Ja, annehmen' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = BitBtn1Click end object BitBtn2: TBitBtn Left = 232 Top = 250 Width = 159 Height = 25 Caption = '&Nein, Vertrag nicht annehmen' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = btnCancelClick end object Memo1: TMemo Left = 144 Top = 40 Width = 329 Height = 137 Lines.Strings = ( '� Lizenzbedingungen' ' ACHTUNG! Lesen Sie sich diese Bedingungen sorgf�lltig durch, ' 'bevor Sie unser Programm benutzen. Mit der Installation des ' 'Programms erkl�ren Sie sich mit jedem Punkt der ' 'Lizenzbedingung einverstanden. Sollten Sie mit dem Folgenden ' 'nicht einverstanden sein, so l�schen Sie dieses Programm auf all' + ' ' 'Ihren Datentr�gern.' '' ' Lizenzbedingungen der Shareware-Version' 'Hiermit erhalten Sie das einmalige Recht diese Shareware (d.h. ' 'dieses Sharewareprogramm mit den verbundenen Dateien und ' 'Dokumentationen) f�r 30 Tage zu testen. Eine Benutzung ' 'dar�ber hinaus ist verboten und wird sowohl straf- als auch ' 'zivilrechtlich verfolgt und bestraft. Unter der Voraussetzung, d' + 'a� ' 'Sie diese Shareware unver�ndert lassen und alle Dateien des ' 'Programms kopieren, d�rfen Sie es beliebig weitergeben, ist ' 'sogar ausdr�cklich erw�nscht. Sie d�rfen dieses Programm und ' 'seine Dokumentationen ohne schriftliche Genehmigung von uns ' 'keinem kommerziellen Programm oder kommerziellen Schriften ' 'beilegen. Ausgenommen sind Zeitschriften beigelegte CDs und ' 'Shareware-CDs.' '' 'An Zeitschriften und Shareware-Distributoren: Wir bitten Sie ' 'dennoch uns ein Fax oder eine kleine Mail zu senden, damit wir ' 'die Verbreitung unserer Produkte verfolgen k�nnen. Zudem ' 'werden Sie von uns auf Wunsch �ber Neuigkeiten und ' 'Angebote informiert.' 'ACHTUNG! Wenn Sie das Programm nach dieser Testphase ' 'weiterbenutzen, sind Sie gesetzlich verpflichtet, dieses Program' + 'm ' 'zu bezahlen und somit die Vollversion zu erwerben oder von all ' 'Ihren Datentr�gern zu l�schen. Die Weiterbenutzung der ' 'Sharewareversion nach Beendigung der Testphase stellt eine ' 'Straftat dar und wird straf- und zivilrechtlich verfolgt werden.' '' '� Lizenzvertrag der Vollversion' 'Die BaqSoft Software Laboratories �bertragen Ihnen ein nicht' 'ausschlie�liches und zeitlich unbegrenztes Nutzungsrecht f�r ' 'dieses Softwareprodukt. Mit einem Versto� gegen diesen ' 'Lizenzvertrag erlischt s�mtliches Nutzungsrecht an diesem ' 'Softwareprodukt.' 'Dieses Nutzungsrecht ist nur g�ltig f�r den Einsatz auf einem ' 'Computersystem und f�r Ihren Gebrauch. Dieses Produkt darf' 'auf gar keinen Fall von mehr als einer Person bzw. an mehr' 'als einem Computer benutzt werden. Zur selben Zeit' 'darf nur ein gekauftes Produkt auf genau einem Rechner ' 'verwendet werden.' '' 'F�r jeden weiteren Rechner ist der Erwerb einer weiteren ' 'Lizenz erforderlich.' '' 'Der K�ufer darf Kopien der Vollversion zu Sicherungszwecken ' '(Backup) und zur Vermeidung von Datenverlusten anfertigen. Es ' 'ist jedoch strikt untersagt, Kopien der Vollversion weiterzugebe' + 'n, ' 'zu verkaufen oder Dritten zug�nglich zu machen.' '' 'Sie d�rfen diese Software nur weitergeben, wenn Sie diese ' 'Software privat nichtgewerblich verkaufen oder verschenken. ' 'Falls die Software weitergegeben wird, mu� dieser Lizenzvertrag' 'vom Dritten anerkannt werden. Bei Anerkannung der Lizenz ' 'durch den Dritten, wird das Nutzungsrecht an den Dritten ' '�bertragen, so da� Ihnen das Nutzungsrecht entzogen wird. ' 'Nach einer Weitergabe m�ssen Sie unverz�glich alle ' 'Programmdateien der Software und Dokumentation von allen ' 'Datentr�gern (sowohl feste als auch transportable Datentr�ger)' 'l�schen. Die Sicherungskopien m�ssen ebenfalls unverz�glich ' 'vernichtet werden.' '' 'Jede unrechtm��ige Vervielf�ltigung der Vollversion wird straf- ' 'und zivilrechtlich verfolgt. Die Rechte an dieser Anleitung und ' 'die Rechte an dem Softwareprogramm, an den Programmodulen' 'und allen darin enthaltenen Komponenten liegen allein bei den' 'BaqSoft Software Labs.' '' '� Garantie- und Haftungsausschlu�' 'Wir haben diese Software mit gr��ter Sorgfalt und gr��ten ' 'Bem�hungen geschrieben und harten Tests unterzogen, aber ' 'dennoch ist es uns auf dem heutigen Stand der Technik nicht ' 'm�glich eine absolut fehlerfreie Software zu erschaffen. Deshalb' + ' ' 'sind alle Angaben dieser Anleitung ohne Gew�hr. Auch k�nnen ' 'wir keine Gew�hr oder Garantie �bernehmen, da� diese ' 'Software auf jedem Rechnersystem, jeder Umgebung und mit ' 'anderen Programmen zusammenarbeitet.' '' 'Wir garantieren nicht die Eignung des Programms incl. evtl. ' 'vorhandener Zusatzprogramme f�r einen bestimmten ' 'Anwendungsfall oder eine bestimmte Hardwarekonfiguration. ' 'Weiterhin sind wir unter keinen Umst�nden f�r Sch�den haftbar, ' 'die sich aus der Nutzung oder Unf�higkeit zur Nutzung des ' 'vorliegenden Produktes ergeben. Dies schlie�t den Verlust von ' 'Gesch�ftsgewinnen, die Unterbrechung der gesch�ftlichen ' 'Abl�ufe, den Verlust von Daten sowie alle �brigen materiellen ' 'und ideellen Verluste und deren Folgesch�den ein und gilt selbst' + ' ' 'dann, wenn wir zuvor ausdr�cklich auf die M�glichkeit derartiger' + ' ' 'Sch�den hingewiesen worden sind. Sollte ein Fehler entdeckt ' 'werden, so sind wir bestrebt, diesen so schnell wie m�glich zu ' 'korrigieren. Doch k�nnen wir dies nicht garantieren. ' '' 'Ver�nderungen an Dateien, die zu diesem Programm geh�ren, ' 'sind strikt untersagt!' '' 'Generell untersagt ist das Disassemblieren und/oder Patchen ' 'des Programms oder seiner Hilfedateien sowie das Ver�ndern ' 'oder Austauschen von Programmodulen bzw. Dynamischen ' 'Laufzeitbibliotheken (DLL). Das Programm darf in keiner Weise ' 'ver�ndert werden. Das Weitergeben der einzelnen ' 'Laufzeitbibliotheken oder von Teilen des Programm bzw. der ' 'Dokumentation ist untersagt.' '' 'Durch den Besitz und die Nutzung der vorliegenden Software ' 'erkl�rt der Anwender vorbehaltlos sein Einverst�ndnis mit der o.' + 'g. ' 'Lizenzbestimmungen und dem Garantie- und Haftungsausschlu�.' '' '� Copyright' 'Dieses Softwareprodukt ist weltweit urheberrechtlich gesch�tzt.' 'BaqSoft Software Laboratories. Distributed by BaqSoft and ' 'Partners.' 'Copyright � 1997-99 by BaqSoft Software Laboratories. All rights' + ' ' 'reserved.' '' 'Program on BaqSoft and BaqSoft Partner Floppydisks and CD'#39's.' 'Internet: http://www.baqsoft.com or http://www.baqsoft.de' '' 'BaqSoft Software Laboratories' 'Postfach 138' '14504 Teltow' 'Deutschland ') ReadOnly = True ScrollBars = ssVertical TabOrder = 0 end end object EndPl: TPanel Left = 0 Top = 0 Width = 492 Height = 283 Align = alClient BevelOuter = bvNone TabOrder = 4 Visible = False object Image5: TImage Left = 9 Top = 9 Width = 115 Height = 225 AutoSize = True Picture.Data = {} end object Bevel8: TBevel Left = 8 Top = 8 Width = 118 Height = 228 end object Bevel9: TBevel Left = 8 Top = 243 Width = 473 Height = 2 end object Label3: TLabel Left = 136 Top = 8 Width = 345 Height = 33 AutoSize = False Caption = 'Die Dateien wurden auf Ihrem Computer kopiert und die Installati' + 'on wurde erfolgreich abgeschlossen.' WordWrap = True end object ktMultiBevel2: TktMultiBevel Left = 136 Top = 44 Width = 345 Height = 93 end object Label4: TLabel Left = 256 Top = 38 Width = 113 Height = 13 Caption = 'BaqSoft Online Service:' end object URLLabel1: TURLLabel Left = 181 Top = 73 Width = 116 Height = 13 Caption = 'http://www.baqsoft.com' URL = 'http://www.baqsoft.com' HiFont.Charset = DEFAULT_CHARSET HiFont.Color = clNavy HiFont.Height = -11 HiFont.Name = 'MS Sans Serif' HiFont.Style = [fsUnderline] end object Image6: TImage Left = 277 Top = 55 Width = 16 Height = 16 Picture.Data = {} Stretch = True Transparent = True end object Image7: TImage Left = 279 Top = 92 Width = 18 Height = 18 AutoSize = True Picture.Data = {} Transparent = True end object URLLabel2: TURLLabel Left = 202 Top = 114 Width = 86 Height = 13 Caption = 'info@baqsoft.com' URL = 'mailto:info@baqsoft.com' HiFont.Charset = DEFAULT_CHARSET HiFont.Color = clNavy HiFont.Height = -11 HiFont.Name = 'MS Sans Serif' HiFont.Style = [fsUnderline] end object Label6: TLabel Left = 136 Top = 145 Width = 329 Height = 26 Caption = 'WinInBlack hat eine Programmgruppe im Startmen� angelegt. WIB99 ' + 'k�nnen Sie �ber das Startmen� starten.' WordWrap = True end object Label12: TLabel Left = 8 Top = 256 Width = 311 Height = 13 Caption = 'Copyright � 1998 by BaqSoft Software Labs. All Rights Reserved.' end object Label13: TLabel Left = 296 Top = 56 Width = 39 Height = 13 Caption = 'Internet:' end object Label14: TLabel Left = 301 Top = 95 Width = 28 Height = 13 Caption = 'eMail:' end object URLLabel3: TURLLabel Left = 331 Top = 73 Width = 108 Height = 13 Caption = 'http://www.baqsoft.de' URL = 'http://www.baqsoft.de' HiFont.Charset = DEFAULT_CHARSET HiFont.Color = clNavy HiFont.Height = -11 HiFont.Name = 'MS Sans Serif' HiFont.Style = [fsUnderline] end object Label5: TLabel Left = 304 Top = 73 Width = 21 Height = 13 Caption = 'oder' end object URLLabel4: TURLLabel Left = 322 Top = 114 Width = 104 Height = 13 Caption = 'support@baqsoft.com' URL = 'mailto:support@baqsoft.com' HiFont.Charset = DEFAULT_CHARSET HiFont.Color = clNavy HiFont.Height = -11 HiFont.Name = 'MS Sans Serif' HiFont.Style = [fsUnderline] end object Label10: TLabel Left = 295 Top = 114 Width = 21 Height = 13 Caption = 'oder' end object Button1: TButton Left = 408 Top = 250 Width = 75 Height = 25 Caption = 'Beenden' TabOrder = 2 OnClick = Button1Click end object CheckBox1: TCheckBox Left = 136 Top = 180 Width = 217 Height = 17 Caption = 'Programm nach der Installation starten.' TabOrder = 0 end object CheckBox2: TCheckBox Left = 136 Top = 202 Width = 337 Height = 17 Caption = 'Readme nach dem Abschlu� der Installation lesen.' TabOrder = 1 end end object BackupFile1: TBackupFile Version = '3.00' BackupMode = bmAll CompressionLevel = clFastest RestoreMode = rmAll MaxSize = 0 SetArchiveFlag = False OnProgress = BackupFile1Progress RestoreFullPath = False SaveFileID = False Left = 64 Top = 184 end object PBShellLink1: TPBShellLink FileIcon.FileName = 'C:\WINDOWS\explorer.exe' FileIcon.IconIndex = 7 HotKey = 0 WindowState = wsMaximized Left = 64 Top = 144 end object ATShell1: TATShell IconPath = 'C:\MSOFFICE\WINWORD\WINWORD.EXE,1' ShowInNew = False TypeName = 'Microsoft Word-Dokument' PathToApp = 'C:\MSOFFICE\WINWORD\WINWORD.EXE' Extension = '.doc' KeyName = 'Word.Document.6' QuickView = False ShellCommands = 'print|/n,New|/n,PrintTo|/n,' ParamPos = ppBefore Left = 64 Top = 112 end object MsgBox1: TMsgBox Title = 'Setup-Information' Options = [] Left = 200 Top = 192 end end