Du verwrirst mcih taotl
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
const ExcelGUID:TGUID='{00024500-0000-0000-C000-000000000046}';
var ProgID:PWideChar;
Malloc:IMalloc;
begin
ProgIDfromCLSID(ExcelGUID,ProgID);
showmessage(ProgID); //---> Excel.Application."Version"
coGetMalloc(1,Malloc);
Malloc.Free(ProgID);
end;
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var clsID:TGuid;
begin
CLSIDfromProgID('
Excel.Application',
clsid);
showmessage(inttohex(
clsID.D1,8));
//-->00024500; und so weiter
end;
Edit2:
Delphi hat in der
Unit ComObj auch die beiden funktionen "gekapselt":
-ProgIDToClassID
-ClassIDToProgID