procedure TForm1.Button1Click(Sender: TObject);
var
 Handle    :HICON;
 Image     :Pointer;
 lpSize    :DWORD;
 dwBytes   :DWORD;
 hFile     :THandle;
begin
 Handle := ExtractIcon(HInstance, 'D:\Embarcadero\RAD Studio\9.0\bin\bds.exe', 0);
 Image  := GetMemory(250000);
 WriteIcon(Image, Handle, False, @lpSize);
 hFile := CreateFile('D:\用户文件夹\桌面\2.ico', GENERIC_WRITE, FILE_SHARE_READ, nil, CREATE_NEW, FILE_ATTRIBUTE_NORMAL, 0);
 if (hFile <> INVALID_HANDLE_VALUE) then
 begin
  WriteFile(hFile, Image^, lpSize, dwBytes, nil);
  CloseHandle(hFile);
 end;
end;