<b>Hallo zusammen,</b><p>
a) Wie kann man feststellen, ob MS Word auf einem Rechner installiert ist ?<p>
b) Wenn ja, möchte ich möglichst ohne OLE oder COM/DCOM eine Word Datei
anzeigen lassen z. B. Handbuch.doc !<p>
c) Wenn Word nicht installiert ist soll versucht werden die Datei mit Wordpad zur Anzeige zu bringen.<p>
Kann mir jemand helfen ? <p>
Folgendes hat leider nicht funktioniert - war wohl auch zu einfallslos !!!<p>
<b> If CreateProcess</b>(nil,<br>
PChar('Handbuch.doc'),<br>
nil,<br>
nil,<br>
False,<br>
NORMAL_PRIORITY_CLASS,<br>
nil,<br>
PChar(Dir+'\Texte'),<br>
StartupInfo,<br>
ProcessInfo) <br>
<b>Then</b> ShowMessage('Ok')<br>
<b>Else</b> ShowMessage('shit - versuchs mal mit Wordpad ...');<p>
<b>NACHTRAG:<br></b>
Statt CreateProcess sollte man, damit es funktioniert <br>
<b>ExecuteFile('Handbuch.doc','',Dir+'\Texte\',0); <br></b>
verwenden. Bloß besonders elegant ist dies wohl auch nicht !?
<b>Gruß Tom ...</b><p>
a) Wie kann man feststellen, ob MS Word auf einem Rechner installiert ist ?<p>
b) Wenn ja, möchte ich möglichst ohne OLE oder COM/DCOM eine Word Datei
anzeigen lassen z. B. Handbuch.doc !<p>
c) Wenn Word nicht installiert ist soll versucht werden die Datei mit Wordpad zur Anzeige zu bringen.<p>
Kann mir jemand helfen ? <p>
Folgendes hat leider nicht funktioniert - war wohl auch zu einfallslos !!!<p>
<b> If CreateProcess</b>(nil,<br>
PChar('Handbuch.doc'),<br>
nil,<br>
nil,<br>
False,<br>
NORMAL_PRIORITY_CLASS,<br>
nil,<br>
PChar(Dir+'\Texte'),<br>
StartupInfo,<br>
ProcessInfo) <br>
<b>Then</b> ShowMessage('Ok')<br>
<b>Else</b> ShowMessage('shit - versuchs mal mit Wordpad ...');<p>
<b>NACHTRAG:<br></b>
Statt CreateProcess sollte man, damit es funktioniert <br>
<b>ExecuteFile('Handbuch.doc','',Dir+'\Texte\',0); <br></b>
verwenden. Bloß besonders elegant ist dies wohl auch nicht !?
<b>Gruß Tom ...</b><p>
Comment