shmia zeigt
hier, wie man einfach überprüfen kann, ob Microsoft Word am Rechner installiert ist.
Delphi-Quellcode:
uses
ActiveX;
function ProgIDExists(
const ProgID: WideString): Boolean;
var
Tmp: TGUID;
begin
Result := Succeeded(CLSIDFromProgID(PWideChar(ProgID), Tmp));
end;
function IsWordInstalled: Boolean;
begin
Result := ProgIDExists('
Word.Application');
end;
Der Aufruf ist zwar trivial, dennoch hier ein Beispiel:
Delphi-Quellcode:
if IsWordInstalled then
begin
ShowMessage('MS Word ist installiert');
end else
begin
ShowMessage('MS Word ist NICHT installiert');
end;
[edit=fkerber]Neu abgespeichert wg. Code-Highlighting. Mfg, fkerber[/edit]