Moderador: Moderadores
#include "hmg.ch"
Function Main()
Local cFileAttr, nFileSize, dCreateDate, nCreateTime, dChangeDate, nChangeTime
cFileName := "c:\hmg.3.0.35\samples\font\demo.prg"
FileStats( cFileName , @cFileAttr , @nFileSize , ;
@dCreateDate, @nCreateTime, ;
@dChangeDate, @nChangeTime )
MsgInfo(left(TString(nCreateTime),5))
retu Nil
DEFINE BKGBRUSH newBrush PATTERN IN WINDOW Form_1 BITMAP c:\images\d1440x900.bmp
Usuários vendo este fórum: Nenhum usuário registrado online e 5 visitantes