[asyr]

Народ, нужна помощь. Два дня мозги делаю и не как не могу сделать. Вот в чем дело:
Необходимо создать папку и дать ей имя значения написанного в Edit1.text. и папка должна находиться в том же каталоге, что и программа.
Затем необходимо сделать скриншот экрана и сохранить его в папке с именем значения написанного в Edit1.text. И все это только с одной кнопкой.

[Aristarh Dark]

Хм... только с одной кнопкой - никак не получится, нужен еще как минимум Edit1...
Нереальные какие-то вопросы сегодня...

[asyr]

Нет Edit тоже должен быть. Просто все это делается 1 кнопкой.

[Kailon]

Как интересно Ты хочешь в Edit писать и имя папки и имя файла?

[ryderx34]

Код:

function GetScreenShot: TBitmap;
var
  DC: HDC;
begin
  Result := TBitmap.Create;
  with Result do
  begin
    Width := Screen.Width;
    Height := Screen.Height;
    DC := GetDC(0);
    try
      BitBlt(Canvas.Handle, 0, 0, Width, Height, DC, 0, 0, SRCCOPY);
    finally
      ReleaseDC(0, DC);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Path: string;
  BMP: TBitmap;
begin
  Path := ExtractFilePath(Application.ExeName) + Edit1.Text;
  CreateDir(Path);     // создаём папку
  BMP := GetScreenShot;  // делаем скриншот (см. функцию выше)
  BMP.SaveToFile(Path + '\screenshot.bmp'); // сохраняем в файл
  BMP.Free;
end;