Mega Code Archive

 

Categories / Delphi / System

 

Windows Default About Box

Title: Windows Default About Box Question: The ShellApi unit contains some good functions. Among the more exotic are this one, ShellAbout. With this function you can open the default Windows About Box with your own text: Answer: uses ShellApi; begin ShellAbout( self.Handle, pChar('This is my header'), pChar('This is my copyright'), HICON(nil) ); end; If you wish to include your own icon, let HICON(nil) point to a icon handle. When pointing to nil the default Windows icon is used.