Preview для screensaver`a

@Lelik-pahan · Регистрация: 25.11.2009

Студворк — интернет-сервис помощи студентам

Всем доброго времени суток.

При открытии в Windows окна настроек заставки, система запускает программу-заставку, передавая ей два параметра:
/P - указывает, что программа вызывается в режиме предварительного просмотра,
и шестизначное число - хендл (HWND) окна, куда нужно передать изображение превью.

Помогите, пожалуйста, отправить превью своей программы (пусть для примера это будет простая форма) в окно предварительного просмотра. Примера, в котором смог бы разобраться, в интернете не нашёл.

И так, я имею:

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

ну и класс формы, экземпляр которой хочу отправить в превью - TF_Main

Что делать дальше - не знаю...

@MrSq · 12.05.2014, 14:28

BRcr, UI,

Ну всмысле уже рисует в окне, а ошибка была раньше

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
__fastcall TSaver::DoPreview()
{
 TRect R;
 HWND PreviewWindow = (HWND)StrToIntDef(ParamStr(2), 0);
 GetWindowRect(PreviewWindow, &R);
 
 prvWidth = R.Right - R.Left;
 prvHeight = R.Bottom - R.Top;
 
 
 if(Saver->Width / (double)prvWidth > Saver->Height / (double)prvHeight)
   Saver->ScaleBy(prvWidth, Saver->Width);
 else
   Saver->ScaleBy(prvHeight, Saver->Height);
 
 Saver->SetBounds(0, 0, prvWidth, prvHeight);
 Saver->BorderStyle = bsNone;
 Saver->ParentWindow = PreviewWindow;
}
//---------------------------------------------------------------------------
void __fastcall TSaver::FormShow(TObject *Sender)
{TRegIniFile *reg= new TRegIniFile("Software");
 reg->OpenKey("BuilderBook",true);
 Settings->TrackBar1->Position=reg->ReadInteger("ScreenSaver","TimerInterval", 100);
 Settings->CSpinEdit1->Value=reg->ReadInteger("ScreenSaver","Size", 50);
 Settings->RadioGroup1->ItemIndex=reg->ReadInteger("ScreenSaver","Figure", 0);
 Settings->CheckBox1->Checked=reg->ReadBool("ScreenSaver","Regime-1",Settings->CheckBox1->Checked);
 Settings->CheckBox2->Checked=reg->ReadBool("ScreenSaver","Regime-2",Settings->CheckBox2->Checked);
 reg->Free();
 
 if(ParamCount() >= 1 && ParamStr(1).UpperCase() == "/P")
  {
  //Saver->Visible = true;
  Timer2->Enabled=true;
  DoPreview();
  Application->Terminate();
  }
 if(ParamStr(1).SubString(1,2).UpperCase()=="/C")
  {
   Settings->ShowModal();
   if(Settings->ModalResult<<mrOk)
   {
    TRegIniFile *reg= new TRegIniFile("Software");
    reg->OpenKey("BuilderBook",true);
    reg->WriteInteger("ScreenSaver","TimerInterval",Settings->TrackBar1->Position);
    reg->WriteInteger("ScreenSaver","Size",Settings->CSpinEdit1->Value);
    reg->WriteInteger("ScreenSaver","Figure",Settings->RadioGroup1->ItemIndex);
    reg->WriteBool("ScreenSaver","Regime-1",Settings->CheckBox1->Checked);
    reg->WriteBool("ScreenSaver","Regime-2",Settings->CheckBox2->Checked);
    reg->Free();
   }
   Application->Terminate();
  }
  if(ParamStr(1).UpperCase()=="/S")
  {
   ShowCursor(false);
   Timer1->Enabled = true;
   Timer1->Interval=Settings->TrackBar1->Position;
   Settings->CSpinEdit1->Value;
  }
Width=Screen->Width;
Height=Screen->Height;
}

Новые блоги и статьи Все статьи Все блоги /
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .