Preview для screensaver`a

HWND PreviewWindow = HWND (StrToInt(ParamStr(2)));  //хендл окна предварительного просмотра
LPRECT R;
GetWindowRect(PreviewWindow, R);  //область этого окна

if (ParamStr(1).UpperCase() == "/P")
{    
    HWND PreviewWindow = HWND (StrToInt(ParamStr(2)));  //хендл окна, где нужно отрисовать превью
    LPRECT R;
    GetWindowRect(PreviewWindow, R);  //область этого окна 
    HDC dc = GetDC(PreviewWindow);  //девайс контекст
    TF_Main *F_Main = new TF_Main(NULL);  //форма, изображение которой хочу отправить на превью
    F_Main->Visible = false;
    TCanvas* cv = new TCanvas();
    cv->Handle = dc;
    cv->StretchDraw(*R, F_Main->Canvas->Brush->Bitmap);
}

//ShowMessage(ParamStr(2));
HWND PreviewWindow = HWND (StrToInt(ParamStr(2)));  
HDC dc = GetDC(PreviewWindow);
TF_screen *F_screen = new TF_screen(NULL);
F_screen->PaintTo(dc, 0, 0);

void __fastcall TF_Main::FormShow(TObject *Sender)
{
    //если нет параметров - вызваны настройки из контекстного меню файла. Если параметр /C:xxxxxx (тоже хендл какой-то), то вызваны настройки из диалогового окна, где выбирают заставку
    if (!ParamCount() || ParamStr(1).SubString(1,2).UpperCase() == "/C")
    {
        TF_Settings *F_Settings = new TF_Settings(this);
        F_Settings->ShowModal();
        Application->Terminate();
    }
    //обычный режим - запуск заставки на весь экран
    else if (ParamStr(1).UpperCase() == "/S")
    {
        ShowCursor(false);
        TF_screen *F_screen = new TF_screen(this);
        F_screen->Setting(Screen->Monitors[0]->BoundsRect);
        F_screen->Show();
        if (Screen->MonitorCount > 1)
        {
            TF_screen *F_screen2 = new TF_screen(this);
            F_screen2->Setting(Screen->Monitors[1]->BoundsRect);
            F_screen2->Show();
        }
    }
    //превью
    else if (ParamStr(1).UpperCase() == "/P")
    {
        //ShowMessage(ParamStr(2));
        HWND PreviewWindow = HWND (StrToInt(ParamStr(2)));  //хендл окна предварительного просмотра
        HDC dc = GetDC(PreviewWindow);
        TF_screen *F_screen = new TF_screen(NULL);
        F_screen->PaintTo(dc, 0, 0);
        //Application->Terminate();
    }
}

__fastcall TForm1::DoPreview()
{
    TRect R;
    HWND PreviewWindow = (HWND)StrToIntDef(ParamStr(2), 0);
    GetWindowRect(PreviewWindow, &R);
 
    int prvWidth = R.Right - R.Left;
    int prvHeight = R.Bottom - R.Top;
 
    TForm2 *F_Screen = new TForm2(0);
    if(F_Screen->Width / (double)prvWidth > F_Screen->Height / (double)prvHeight)
        F_Screen->ScaleBy(prvWidth, F_Screen->Width);
    else
        F_Screen->ScaleBy(prvHeight, F_Screen->Height);
    F_Screen->SetBounds(0, 0, prvWidth, prvHeight);
    F_Screen->BorderStyle = bsNone;
    F_Screen->ParentWindow = PreviewWindow;
    F_Screen->Visible = true;
}
 
void __fastcall TForm1::FormShow(TObject *Sender)
{
    //
    if(ParamCount() >= 1 && ParamStr(1).UpperCase() == "/P")
    {
        DoPreview();
    }
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
#include <gl/gl.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormActivate(TObject *Sender)
{
 Left=0;
 Top=0;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
 Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
 BGBitmap->Free();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
 if(Timer1->Enabled==true) Canvas->Draw(0,0,BGBitmap);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 BGBitmap->Canvas->Pen->Color=RGB(random(256),random(256),random(256));
 BGBitmap->Canvas->MoveTo(random(Screen->Width),random(Screen->Height));
 BGBitmap->Canvas->LineTo(random(Screen->Width),random(Screen->Height));
 Canvas->Draw(0,0,BGBitmap);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
 TRegIniFile *reg= new TRegIniFile("Software");
 reg->OpenKey("BuilderBook",true);
 Form2->Edit1->Text=reg->ReadString("ScreenSaver","Password","");
 Form2->TrackBar1->Position=reg->ReadInteger("ScreenSaver","TimerInterval", 1000);
 reg->Free();
 
 if(ParamCount>0)
 {
  if(ParamStr(1).UpperCase() == "/p")
  {
   Form1->Close();
   exit;
  }
  if(ParamStr(2).SubString(1,2).UpperCase()=="/c")
  {
   Form2->ShowModal();
   if(Form2->ModalResult << mrOk)
   {
    TRegIniFile *reg= new TRegIniFile("Software");
    reg->OpenKey("BuilderBook",true);
    reg->WriteString("ScreenSaver","Password",Form2->Edit1->Text);
    reg->WriteInteger("ScreenSaver","TimerInterval",Form2->TrackBar1->Position);
    reg->Free();
   }
   Close();
   exit;
  }
 }
 Timer1->Enabled=true;
 Timer1->Interval=Form2->TrackBar1->Position;
 Width=Screen->Width;
 Height=Screen->Height;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Width=0;
 Height=0;
 BGBitmap=new Graphics::TBitmap();
 BGBitmap->Width=Screen->Width;
 BGBitmap->Height=Screen->Height;
 
 DC=GetDC(0);
 BackgroundCanvas=new TCanvas();
 BackgroundCanvas->Handle=DC;
 
 BGBitmap->Canvas->CopyRect(Rect(0,0,Screen->Width,Screen->Height), BackgroundCanvas,
                                Rect(0,0,Screen->Width,Screen->Height));
 BackgroundCanvas->Free();
 randomize();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
 AnsiString pass;
 if(ParamStr(1).UpperCase()!="/s")
 {
  CanClose=true;
  exit;
 }
 if(Form2->Edit1->Text=="")
 {
  CanClose=true;
  exit;
 }
 CanClose=false;
 pass="";
 if(InputQuery("Введите пароль",pass))
 if(pass==Form2->Edit1->Text) CanClose=true;
}