Was schreibt er denn in deine Form-Caption?
Bei mir springt er gleich hier raus...
Delphi-Quellcode:
procedure TPreviewControl.PreviewFile;
:
begin
:
ACLSID := GetCLSIDForFileName(FFileName);
if ACLSID = '
'
then
begin
FLastError := '
No CLSID';
Exit;
end;
Weil bei mir der folgende Schlüssel nicht existiert...
ARegistryPath := AFileExt + '\shellex\{8895b1c6-b41f-4c1c-a562-0d564250836f}';
Also steht bei mir: No
CLSID