Apresentando imagens aleatórias

Escrito em 04 de Outubro de 2007 em PHP, Programação por Feijo

Um amigo estava usando um código php que ele encontrou, para apresentar sempre uma imagem diferente no topo do blog.
Não estava funcionando muito bem, pedi o código e além de complexo e longo, tinha algum problema.
Criei rapidamente um código super enxuto, e mais simples de entender.
 
Segue o mesmo, espero que seja útil para muitos.
 
Crie um arquivo [...]

Pegando a Data da Última Leitura de um arquivo

Escrito em 02 de Outubro de 2007 em Delphi, Linguagem Delphi por Feijo

Função pequena e útil, descobre quando aquele arquivo foi acessado pela última vez.
 
function FileAccessTime(FileName: String): TDateTime;var  FileHandle: Integer;  LTime,  FTimeA: TFileTime;  STime: TSystemTime;begin  FileHandle := FileOpen(FileName,fmShareDenyNone);
  if FileHandle >= 0 then  begin    // Accessado    GetFileTime(FileHandle,nil, @FTimeA, nil);    FileClose(FileHandle);    FileTimeToLocalFileTime(FTimeA,LTime);
    if FileTimeToSystemTime(LTime,STime) then    begin      Result := EncodeDate(STime.wYear,STime.wMonth,STime.wDay);      Result := Result + EncodeTime(STime.wHour,STime.wMinute,STime.wSecond,STime.wMilliSeconds);    end;  end;end;
 
procedure TForm1.Button1Click(Self);
begin
  ShowMessage(DateTimeToStr(FileAccessTime(’c:\windows\areia.bmp’));
end;