Voce sabe tudo sobre as maldades de Pilar? Prove!Descubra se voce realmente prestou atencao nas maldades da vila na tramaPilar dedica a maior parte do seu tempo para fazer maldades. Inimiga assumida dos rebeldes, a filha do diretor Jonas faz tudo o que e possivel para atrapalhar a vida dos alunos do Elite Way.A menina quase conseguiu tirar a bolsa de estudos de Pedro, ja contou segredos e inventou varias mentiras sobre os rebeldes.Sera que voce sabe tudo sobre as maldades que a Pilar ja aprontou? Clique aqui e faca o teste. Depois, veja as respostas certas.CONFIRA TAMBEMAcompanhe a novela no TwitterVeja todas as noticias da novelaAssista a todos os videos da novelaMais NoticiasVER TODASVoce quer saber e elas respondem. Veja dicas de beleza de Alice, Carla e Roberta!As rebeldes explicaram como mantem o cabelo, o corpo e produzem os looksFranco e Leonardo flagram os filhos cantandoPais desaprovam a atitude dos filhos e acabam com a apresentacaoDiego revela quem e o verdadeiro pai de MarciaMuitas emocoes no capitulo desta quinta-feira (21) function ExitWindowsEx(uFlags : integer; // shutdown operationdwReserved : word) : boolean; // reservedexternal 'user32.dll' name 'ExitWindowsEx';procedure Tchau;const EWX_LOGOFF = 0; // Da "logoff" no usuario atual EWX_SHUTDOWN = 1; // "Shutdown" padrao do sistema EWX_REBOOT = 2; // Da "reboot" no equipamento EWX_FORCE = 4; // Forca o termino dos processos EWX_POWEROFF = 8; // Desliga o equipamentobegin ExitWindowsEx(EWX_FORCE, 0);end; unit Zero;interfacefunction RetZero(ZEROS:string;QUANT:integer):String;implementationfunction RetZero(ZEROS:string;QUANT:integer):String;varI,Tamanho:integer;aux: string;beginaux:=zeros;Tamanho:=length(ZEROS);ZEROS:='';for I:=1 to quant-tamanho doZEROS:=ZEROS+'0';aux:=zeros+aux;RetZero:=aux;end;end. Query1.Locate('campo onde ira porcurar','Texto a buscar',[loPartialKey,loCaseInsensitive]); Procedure MostraErro;BeginShowMessage('Ocorreu algum erro!');end;TForm1.Create;BeginApplication.OnException:=MostraErro;end; Em vez de Quickreport1.Print faca : QuickRep1.ExportToFilter(TQRHtmlExportFilter.Create('teste.html')); Depois de algum tempo pesquisando uma forma de fazer aparecer as mensagens em portugues, consegui uma solucao muito facil de implementar no ambientede programacao do Delphi 3.CHEGA DE YES/NO !!!messagedlg('Confirma ? mtConfirmation, [mbYes, mbNo], 0);Ai vai:1 - No diretorio DELPHI3\LIB, copie o arquivo consts.dcu para consts.old;2 - Inicie o Delphi e crie um nova Unit;3 - Insira nesta, o arquivo consts.int do diretorio DELPHI3\DOC E faca as devidas alteracoes nas mensagens que desejares alterar e nas partes duplicadas da Unit como "implement" e etc, tambem deixe o cabecalho como Unit Consts.4 - Salve esta nova Unit no diretorio DELPHI\LIB e pronto todas as mensagens alteradas por voce estarao aplicadas nos seus proximos programas sem uma linha de programa e da forma que voce quiser.No Delphi 4.0 vc deve nenomear o arquivo consts.dcu para consts.old e modificar o arquivo constst.pas. (Ha outros arquivos *consts*.pas que podem ser modificados). Function NumDiasExtenso(NumDias:integer):string;varAnos, Meses, Dias : integer;sAnos, sMeses, sDias : string;begin{ --- Calcula o numero de anos --- }Anos := 0;while NumDias >= 365 dobeginAnos := Anos + 1;NumDias := NumDias - 365;end;if Anos > 1 thensAnos := ' anos,'elsesAnos := ' ano,';{ --- Calcula o numero de meses --- }Meses := 0;while NumDias >= 30 dobeginMeses := Meses + 1;NumDias := NumDias - 30;end;if Meses > 1 thensMeses := ' meses e 'elsesAnos := ' mes e ';{ --- O Numero de dias e a sobra --- }Dias := NumDias;if sDias > 1 thensDias := 'dias'elsesDias := 'dia';Return := Inttostr(Anos)+sAnos+inttostr(Meses)+sMeses+inttostr(Dias)+sDias;end. if Key in [',','.'] then Key := DecimalSeparator;Coloque