Сохранить Все Изображения

[Janger]

Я что то не могу придумать, как сделать так, что бы имена шли по очереди, т.е. с 0 до 100 ...

if (GetAsyncKeyState(VK_F4) and GetAsyncKeyState(VK_F5)) <> 0 then
  begin
  for i := 0 to 100 do
  begin
  ScreenShot(n+'\Screen'+IntToStr(i)+'.bmp');
  break;
  end;
  end;

n = Путь к файлу
Всё работает нормально, т.е. скриншот делается нормально. Получается скриншот в нужной папке с именем: Screen0.bmp
Вроде бы логично, но как сделать так, что бы при нажатии 2-а раза на клавиши F4 + F5, было 2-а скриншота, с именами: Screen0.bmp и Screen1.bmp, ну и т.д.
Я до этого не могу додуматься(((
У меня получается либо 1-н скрин, либо 100 скринов
Я общем, подскажите, прошу... Идей у меня больше нету...((

[Stilet]

if (GetAsyncKeyState(VK_F4) and GetAsyncKeyState(VK_F5)) <> 0 then
  begin
   ScreenShot(n+'\Screen'+IntToStr(tag)+'.bmp');
   tag:=tag+1;
  end;

[Arigato]

if not fileexists(...) then ...

[Janger]

Сообщение от Stilet

if (GetAsyncKeyState(VK_F4) and GetAsyncKeyState(VK_F5)) <> 0 then
  begin
   ScreenShot(n+'\Screen'+IntToStr(tag)+'.bmp');
   tag:=tag+1;
  end;

Это не помогает, он всё равно заменяет.
И счётчик на 0 стоит, дальше не идёт

Я так понимаю, проблема в том, что что изменение происходит в "конце" кода, а компиляция идёт не с конца, а с начала Как бы это банально не звучало
И по этому, значение "tag", вообще ни на что не реагирует.
Хм... Всё равно идей нету(

[Arigato]

http://programmersforum.ru/showpost....82&postcount=3

[Janger]

Сообщение от Arigato

http://programmersforum.ru/showpost....82&postcount=3

простите но я не особо понял, как это применить

В общем, решим проблему.
Просто сделал не счётчик, а вывод времени:
Screen115010.bmp
Идёт в начале "Screen", потом часы "11", потом минуты "50", и секунды "10", и всё тут
p.s. ну мало ли кому то надо будет..
всем большое спасибо за комментарии! Всем +

[bakanaev]

Janger

....
var 
 Tag: Integer = 0;

implementation
.....
procedure Check;
begin
  if (GetAsyncKeyState(VK_F4) and GetAsyncKeyState(VK_F5)) <> 0 then
  begin
    ScreenShot(N + '\Screen' + IntToStr(Tag) + '.bmp');
    Tag := Tag + 1;
  end;
end;

Tag - глобальная переменная

[Arigato]

Сообщение от Janger

простите но я не особо понял, как это применить

FileName := n+'\Screen'+IntToStr(i)+'.bmp';
if not FileExists(FileName) then begin
  ScreenShot(FileName);
  Break;
end;

Только лучше вогнать это под цикл while, чтобы не быть ограниченным только 100 индексами.