关于调用的问题

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec('D:\Tencent\QQ\qq.exe',1);
end;问题一：我的代码，启动一个程序的，我想知道，当启动调用的程序后，如何自动关闭自身程序！问题二：如何在按钮上显示调用程序的图标，比如：按钮一调用的是QQ程序，如何在按钮上自动显示调用程序的图标？望各位高手详细告知！谢谢！

Answer 1

1,exit2,procedure   TForm1.FormCreate(Sender:   TObject);   
  begin   
      with   ListView1   do   
      begin   
            LargeImages   :=   TImageList.CreateSize(32,   32);   
            LargeImages.ShareImages   :=   TRUE;   
            LargeImages.Handle   :=   SHGetFileInfo('',   0,   SFI,   SizeOf(SFI),   SHGFI_SYSICONINDEX   or   SHGFI_LARGEICON   or   SHGFI_ICON);   
    
            SmallImages   :=   TImageList.CreateSize(16,   16);   
            SmallImages.ShareImages   :=   True;   
            SmallImages.Handle   :=   SHGetFileInfo('',   0,   SFI,   SizeOf(SFI),   SHGFI_SYSICONINDEX   or   SHGFI_SMALLICON   or   SHGFI_ICON);   
      end;   
  end;   
    
  procedure   TForm1.FormDestroy(Sender:   TObject);   
  begin   
      ListView1.SmallImages.Free;   
      ListView1.LargeImages.Free;   
  end; 

Answer 2

初学 笨办法如下：1. close；   2.把按钮换成 TbitBtn 或者 TSpeedBtn

Answer 3

Tbitbtn和TspeedBtn两者都可以在glyph属性里面可以自行设定图像，在layout属性里调整图像在按钮上的位置