ClsID программы

← →
YDS (2006-03-09 10:19) [0]

Нужно вернуть ClsID проги вида {XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX} по
ее наименованию.
Делаю так

Uses Windows, OLE2

var
ss : TCLSID;
sss : POleStr;

begin
ss := ProgIDToClassID("Excel.Application");
StringFromCLSID(ss, sss);
..

И получаю ошибку: Incompatible types: "Ole2.TGUID" and "System.TGUID". Как
же нужно??

← →
Сергей М. © (2006-03-09 10:22) [1]

uses ComObj

ShowMessage(GUIDToString(ProgIDToClassID("Excel.Application")));

← →
YDS (2006-03-09 10:35) [2]

Thxs!!!!

Прошу прощение за настырливость, а как наоборот, т.е. из ClsID вида {XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX} получить соответствующее ему ProgID (название программы)?

← →
Сергей М. © (2006-03-09 10:37) [3]

ShowMessage(ClassIDToProgId(StringToGuid("{XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX}")));

← →
YDS (2006-03-09 10:38) [4]

Sorry, понял:
ClassIDToProgID(StringToGUID("{XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX}"))

ClsID программы Найти похожие ветки