Erro de data em notebook...
Pessoal, alguém sabe porque equipamentos tipo NOTEBOOK dá tanto problema com data?
Tenho uma rotina que pega a data e hora de arquivos:
Function Data_Hora_Arquivo(Arquivo:PChar):TDateTime;
Var
FHandle: integer;
begin
FHandle := FileOpen(Arquivo,0);
Try
Result := FileDateToDateTime(FileGetDate(FHandle));
Finally
FileClose(FHandle);
End;
End;
E no notebook quando o result vai receber a data e hora do arquivo ´BORLNDMM.DLL´ dá o erro: ´Invalid Date argument encode´.
Tentei dar um LongDateForma := ´dd/mmyyyy´ mas não deu certo...
Tenho uma rotina que pega a data e hora de arquivos:
Function Data_Hora_Arquivo(Arquivo:PChar):TDateTime;
Var
FHandle: integer;
begin
FHandle := FileOpen(Arquivo,0);
Try
Result := FileDateToDateTime(FileGetDate(FHandle));
Finally
FileClose(FHandle);
End;
End;
E no notebook quando o result vai receber a data e hora do arquivo ´BORLNDMM.DLL´ dá o erro: ´Invalid Date argument encode´.
Tentei dar um LongDateForma := ´dd/mmyyyy´ mas não deu certo...
Danilorsa
Curtidas 0
Respostas
Nigro
26/01/2004
Veja se as configurações de data do Painel de Controle estão da forma desejada.
GOSTEI 0
Gilberto Fernandes
26/01/2004
vou dar uma ressucitada nesse tópico pq não encontrei resposta em nenhum outro tópico...
tive essa msg tb e isso acontece qdo o arquivo esta em execução. alguém conhece uma outra rotina pra pegar data de executável ou uma correção para isso?
ps: sem ser a rotina de versão do delphi.
Obrigado,
Abraços,
Gilberto
tive essa msg tb e isso acontece qdo o arquivo esta em execução. alguém conhece uma outra rotina pra pegar data de executável ou uma correção para isso?
ps: sem ser a rotina de versão do delphi.
Obrigado,
Abraços,
Gilberto
GOSTEI 0