400  

. 6.6

   
OLE -  

h   OLE

   (Link).         
    .     
  .         -
,      .  ,     
      .     
    .       
   ,   ,   .
  , , Microsoft Paint,     
.   -   ,  , .  -
   ,        
 .

    ,  OLE.   -
,      .     
.      ,   OLE, ,
        - 
 .    CreateObjectFromFile:

void CreateObjectFromFile(AnsiString FileName, bool Iconic);

 FileName    .  
 Iconic,      false, , 
    ,       . 
  ,  true,       
.

 ,        -
  :

void   fastcall TFormI::MOpenFClick(TObject *Sender)
f

if (OpenDialogl->Execute())
(

01eContainerl->CreateObjectFromFile(OpenDialogl->FileName, false);

FName = OpenDialogl->FileName;

01eContainerl->Repaint() ;

       -
  OLE  ,      
 . 6.3  6.5.

    CreateLinkToFile,  
   :

void CreateLinkToFile(const AnsiString FileName, bool Iconic);