PRECISO DESSA AJUDA :d

Question

como eu pego a hora em que o arquivo foi criado ?...

Sam · Answer

A fun��o abaixo mostra como adquirir a data e hora de um arquivo
function GetFileDate(Arquivo: String): String;
var
FHandle: integer;
begin
FHandle := FileOpen(Arquivo, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;
end;

Espero ter ajudado !!!

Mateus · Answer

voc� pode pegar as horas do windows(sistema) e na hora de criar ela � incrementada .........

procedure TFormPrincipal.FormShow(Sender: TObject);
var
vdata:Tdate;
begin
DM.tbaluno.Append;
DM.tbimpressora.Append;
DM.tbNcopia.Append;
vdata:=date;
DbEdit2.Text:=datetostr (vdata);
end;

F�rum PRECISO DESSA AJUDA :d #155749