안녕하세요 만해입니다.

넘 간단한 답변이었다고 좀 이상해 하고 잇던 찰나에

님의 재 질문을 보고 부족한게 잇다고 생각되서

이전에 만든 스크린 캡춰 하는 소스를 통해 부족한 부분을 보충해 드릴께요

    TImage *image2save = new TImage(Form1);
    try
    {
      image2save->Height = 600;
      image2save->Width = 800;
      TRect destRect = Rect(0,0,Width,Height);
      TRect sourceRect = destRect;
      image2save->Canvas->CopyRect(destRect,Image1->Canvas, sourceRect);
      LogPal SysPal;
      SysPal.lpal.palVersion = 0x300;

      SysPal.lpal.palNumEntries = 256;
      GetSystemPaletteEntries(Image1->Canvas->Handle,0,256,SysPal.lpal.palPalEntry);
      image2save->Picture->Bitmap->Palette = CreatePalette((const tagLOGPALETTE *)&SysPal.lpal);
      image2save->Picture->SaveToFile(FileName);
    }
    __finally
    {
     delete image2save;
    }

이 소스를 참고 하세요

대략 적인 설명은 image의 Canvas에 잇는 내용을

새로 만든 이미지 객체로 옭기고, 그걸 저장 시키는 겁니다.

그럼 이만~