Re: [trabalho] [delphi-br] Versão

Fri, 26 May 2006 11:34:24 -0700

function FileDate(Arquivo: String): String;
{Retorna a data e a hora de um arquivo}
var
FHandle: integer;
begin
if not fileexists(Arquivo) then
  begin
  Result := 'Nome de Arquivo Inválido';
  end
else
  begin
  FHandle := FileOpen(Arquivo, 0);
  try
  Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
  finally
  FileClose(FHandle);
  end;
  end;
end;







  ----- Original Message -----
  From: Luiz Henrique
  To: delphi-br@yahoogrupos.com.br
  Sent: Friday, May 26, 2006 2:48 PM
  Subject: [trabalho] [delphi-br] Versão


  Pessoal,

  Como posso obter a versão do executável? Aquela que é configurada na opção
  Project/Options/Version Info. Quero fazer uma janela que mostre essa
  informação. Também preciso da data do executável.

  SDS

  Luiz Henrique Santos
  Coordenador de Desenvolvimento
  Brasystem Automação Comercial
  Florianópolis - Santa Catarina
  Telefone: 55 (48) 3223-3632 ramal 26
  [EMAIL PROTECTED]


             
  _______________________________________________________
  Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora!
  http://br.mobile.yahoo.com/mailalertas/




  --
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>





        Yahoo! Grupos, um serviço oferecido por:
              PUBLICIDADE
               
      


------------------------------------------------------------------------------
  Links do Yahoo! Grupos

    a.. Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/
     
    b.. Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]
     
    c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.



[As partes desta mensagem que não continham texto foram removidas]



--
<<<<< 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]


Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE

Links do Yahoo! Grupos

Responder a