Witam, piszę aplikację, która ma za zadanie co jakiś czas robić zrzut ekranu i zapisywać go pod nazwą pliku. Jednak mam problem z nazwą pliku. Na FAQ znalazłem taki kod do robienia screenshot-ów:
var
Can: TCanvas;
B: TBitmap;
begin
try
{ tworzenie zmiennej }
Can := TCanvas.Create;
{ przechwycenie uchwytu ekrnau }
Can.Handle := GetWindowDC(GetDesktopWindow);
{ tworzenie bitmapy }
B := TBitmap.Create;
B.Width := Screen.Width;
B.Height := Screen.Height;
B.Canvas.CopyRect(Rect(0, 0, Screen.Width, Screen.Height), Can, Rect(0, 0, Screen.Width, Screen.Height));
try // zapisz plik
B.SaveToFile('C:\\plik.bmp');
except // w wyniku bledu...
raise Exception.Create('Bład w zapisie pliku...');
end;
finally
Can.Free;
B.Free;
end;
Jednak ten kod zapewnia tylko zapis w pliku o nazwie, którą podam, a chciałbym, żeby plik był konstrukcji data-czas.bmp, np. 17-05-06_17-06
Mogę też użyć procedury, która zmieni nazwę utworzonego pliku na aktualną datę i godzinę. Mam tylko problem, bo nie wiem jakiej procedury użyć...
Może ktoś coś zaproponuje? ;P