Buscar por:

Verificar se a data do computador esta como dd'mm'aaaa

Código

Program Programa;

uses

  Forms,

  SysUtils,

  Dialogs,

  UnitPrincipal in 'UnitPrincipal.pas' {FrmPrincipal},

{$R *.res}

begin

  Application.Initialize;

  Application.CreateForm(TFrmPrincipal, FrmPrincipal);

  if (Length(DateToStr(Date)) < 10) then

       begin

            MessageDlg('A data do seu computador tem que ser alterada ' + #10#13 +

                       'para 4(quatro) digitos  no ano , ' + #10#13 +

                       'para isto clique em Iniciar, Configurações, ' +  #10#13 +

                       'Painel de Controles, Configurações Regionais, ' + #10#13 +

                       'Opção Data, Configure estilo de data abreviada para dd/MM/aaaa', MtInformation, [MbOk], 0);

            Application.Terminate;

            Exit;

       end;

     DecimalSeparator := ',';

     DateSeparator := '/';

     ShortDateFormat := 'dd/mm/yyyy';

     TimeSeparator := ':';

     Application.Run;

end.