--- Em delphi-br@yahoogrupos.com.br, "julianoinfo" <[EMAIL PROTECTED]>
escreveu
>
> Sr.'s Como fasso para pegar Data e Hora do Exe ?
>
> Grato Pela Atenção
>
Declare a enumaration abaixo no topo da unit:
type
TFileDateType = (fdCreate, fdModify, fdAccess);
Coloque essa função na implementation:
function GetFileDate(const AFilename: String; AType: TFileDateType):
TDateTime;
var
pFile: TSearchRec;
pTime: TFileTime;
pLocal: TFileTime;
iTime: Integer;
begin
Result := 0;
if FindFirst(AFilename, faAnyFile, pFile) = 0 then begin
case AType of
fdCreate: pTime := pFile.FindData.ftCreationTime;
fdModify: pTime := pFile.FindData.ftLastWriteTime;
fdAccess: pTime := pFile.FindData.ftLastAccessTime;
end;
// Convert file time to local time
FileTimeToLocalFileTime(pTime, pLocal);
FileTimeToDosDateTime(pLocal, LongRec(iTime).Hi, LongRec
(iTime).Lo);
// Convert local time to TDateTime
Result := FileDateToDateTime(iTime);
FindClose(pFile);
end;
end;
para usar faça assim:
var
pFileDate: TDateTime;
begin
pFileData := GetFileDate('c:\bootlog.txt', fdCreate);
end;
Com fdCreate você retorna a data de criação do arquivo, com fdModify
a data de modificação e com fdAccess a data de acesso pode ser usado
com qualquer tipo de arquivo, não somente executáveis.
[]'s
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
