Работа с Photoshop

Previous  Top  Next

    
 

 

 

Code:

 

uses

ComObj, ActiveX, PhotoShopTypeLibrary_TLB;

 

var

PS: IPhotoShopApplication;

Unknown: IUnknown;

begin

Result := GetActiveObject(CLASS_PhotoshopApplication, nil, Unknown);

if (Result = MK_E_UNAVAILABLE) then

   PS := CoPhotoshopApplication.Create

else

begin

   { make sure no other error occurred }

   OleCheck(Result);

   OleCheck(Unknown.QueryInterface(IPhotoShopApplication, PS));

end;

PS.Visible := True;

end;

 

©Drkb::04484

Взято с Delphi Knowledge Base: http://www.baltsoft.com/