Array
(
)

data e hora do executavel

Rafael Santana
   - 26 mar 2006

pessoal, como faço para pegar a date e a hora de um executável...?

quero pegar isso usando o delphi.


Paullsoftware
   - 26 mar 2006

eu uso essa função, mais ela não funcionou comigo no win9x
#Código

function ChecaDataExe(Arquivo: String): String;
var
FHandle: integer;
begin
if not fileexists(Arquivo) then
begin
Result := ´Arquivo não encontrado!´;
end
else
begin
FHandle := FileOpen(Arquivo, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;
end;
end;
:wink:


Massuda
   - 26 mar 2006

Se você quer a data e hora que um executável foi gerado (compilado), dê uma olhada [url=http://forum.clubedelphi.net/viewtopic.php?t=58434]neste tópico[/url]