Автоматическое сохранение картинки.

[PruSLas]

if (!Image1->Picture->Bitmap->Empty) {
Image1->Picture->SaveToFile(TDateTime::CurrentDateT ime().FormatString("dd.MM.yyyy HH-mm-ss") + ".bmp");
Image1->Picture->Bitmap->FreeImage();
Image1->Picture->Bitmap = NULL;

Вот рабочий код. Спасибо большое. Осталось прикрутить что-нибудь для выбора папки для сохранения скриншотов и лог. С ходу вопрос про логи: как лучше реализовать? Подумывал про поле TMemo, заносить туда названия скринов и при нажатии кнопки STOP сохранять txt файл на винчестер...

[Drugnir]

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

Вот ссылка на выбор директории

Ну а с логом думаю все и так понятно.

[PruSLas]

Спасибо, в свободное время доработаю
А на картинке скрин ошибки с текстом "Access violation at address 00401F94 in module 'Project1.exe'. Read of address 00000000."

[Drugnir]

Рад был помочь.

[PruSLas]

Тему в принципе закрыть можно.