Detekce nového souboru ve složce – Delphi – Fórum – Programujte.com

Každou minutu mi vypadne z celooblohové kamery obrázek, ale soft ke kameře neumí text overlay. Takže bych potřeboval do každého obrázku doplnit datum a čas. To bych dovedl celkem jednoduše, ale nějak nevím, jak detekovat nový soubor ve složce...

Dáky za Vaše nápady...

Zkus testovat datum a čas poslední změny adresáře.

Tak nakonec jsem použil tohle:

function GetLastModifiedFileName(AFolder: String; APattern: String = '*.*'): String;
var
  sr: TSearchRec;
  aTime: Integer;
begin
  Result := '';
  aTime := 0;
  if FindFirst(IncludeTrailingPathDelimiter(AFolder) + APattern, faAnyFile, sr) = 0 then
  begin
    repeat
      if sr.Time > aTime then
      begin
        aTime := sr.Time;
        Result := sr.Name;
      end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;

a volám

 soubor:=GetLastModifiedFileName('C:\Meade Images','*.jpg');

Ovšem tohle nevrátí nově vytvořený soubor, nýbrž naposledy upravený soubor. Spíš bych se podíval na tuhle funkci http://msdn.microsoft.com/en-us/library/windows/desktop/aa365465%28v=vs.85%29.aspx