Extract an icon from an Windows application and paint on a Form

~~~~~~~~~~
procedure TForm1.Button1Click(Sender: TObject) ;
var
   IconIndex : word;
   h : hIcon;
begin
  IconIndex := 0;
  h:=ExtractAssociatedIcon
     (hInstance,'C:\WINDOWS\NOTEPAD.EXE', IconIndex) ;
  DrawIcon(Form1.Canvas.Handle, 10, 10, h) ;
end;
~~~~~~~~~~

Delphi tips navigator:
» Detecting Drive Types
« Prevent CTRL+DELETE in DBGrid

• 1
• 2
• 3
• 4
• 5