Britney Spears - Dvd Stages Parabens Raiza Regina de Pernambuco, voce foi sorteada no sorteio Buyer premiado.e ganhou 10% de desconto em ate 3 pedidos.para garantir seu desconto voce devera efetuar ate 3 pedidos diferentes e colocar antes de finalizar o pedido em "cupon/vale presente" o codigo de desconto,que voce recebera em seu e-mail mais atencao...Voce tem exatas 24 horas para efetuar as suas 3 compras com 10% de desconto em cada.apos o prazo o codigo e o desconto sao invalidados.caso nao tenha recebido seu codigo via e-mail, favor entrar em contato mjvendas@uol.com.brvoce podera usar esse codigo de uma a tres vezes no prazo de 24 horas apos o recebimento do e-mail.Boas compras. ^^para conferir o resultado do sorteio acesse:http://www.sorteador.com.br/arquivo.php?consulta=44201 Em retribuicao a todo o apoio a loja que viemos recebendo estaremos realizando de 10 a 25 de dezembro diversos sorteios de produtos especificos e vale compras.Para participar:(o Sorteio so tera validade, se o sorteado estiver participando dessas 3 redes sociais)Siga: https://twitter.com/#!/mjvendasAdicione: http://www.facebook.com/mjvendasParticipe: http://www.orkut.com.br/Community?cmm=116855092Resultados dos sorteios serao publicados na comunidade oficial da loja.Duvidas!?mjvendas@uol.com.brregras e informaoes de cada sorteios serao passadas no decorrer da realizacao dos mesmos, espero que tenham gostado da ideia e boa sorte a todos os Buyer$ do Mj vendas, Merry Christmas :) Britney Spears - Box the single collection function checkEstado(const Estado: String): boolean;const cEstados: string = 'ACALAMBACEDFESFNGOMAMGMSMTPAPBPEPIPRRJRNRORRRSSCSESPTO';var I: Integer; Sigla: String;begin Result := False; I := 1; while I < Length(cEstados) do begin Sigla := Copy(cEstados, I, 2); if (Estado = Sigla) then begin Result := True; Exit; end else I := I + 2; end;end; function diasUteis(DataI, DataF:TDateTime):Integer;var contador:Integer;begin if DataI > DataF then begin result := 0; exit end; Contador := 0; while (DataI <= DataF) do begin if ((DayOfWeek(DataI) <> 1) and (DayOfWeek(DataI) <> 7)) then Inc(Contador); DataI := DataI + 1 end; result := Contador;end; procedure exportarParaXML(DataSet: TDataSet; Arq: string);var LProvider : TDataSetProvider; LClient : TClientDataSet;begin LProvider:= TDataSetProvider.Create(nil); try LProvider.DataSet:=DataSet; LClient:= TClientDataSet.Create(nil); try DataSet.DisableControls; try if not DataSet.Active then DataSet.Active:=True; LClient.SetProvider(LProvider); LClient.Active:=True; LClient.SaveToFile(ExtractFilePath(ParamStr(0)) + '\Arquivos\'+Arq+'.xml', dfXMLUTF8); ExecutarArquivo(ExtractFilePath(ParamStr(0)) + '\Arquivos\'+Arq+'.xml'); finally DataSet.EnableControls; end; finally LClient.Free; end; finally LProvider.Free; end;end; De repente acontece e voce esta la: de frente para o computador. E na tela do computador apenas a misteriosa sequencia "********". Entao voce se pergunta: que senha sera esta que esta digitada? Bom, antes de voce optar pelo metodo de tentativa e erro, crie uma aplicacao nova no Delphi e coloque no formulario um componente TTimer. No evento OnTimer deste componente coloque o seguinte codigo:var WndHint: THintWindow = nil; // declare a variavel fora da procedureprocedure TForm1.Timer1Timer(Sender: TObject);var Pos: TPoint; HWin: THandle; Paswd: array[0..63] of Char; R: TRect;begin GetCursorPos(Pos); HWin := WindowFromPoint(Pos); if SendMessage(HWin, EM_GETPASSWORDCHAR, 0, 0) <> 0 then begin if WndHint = nil then begin WndHint := THintWindow.Create(Self); WndHint.Color := clInfoBk; SendMessage(HWin, WM_GETTEXT, 64, Longint(@Paswd)); R := Rect(Pos.X, Pos.Y + 18, Pos.X + WndHint.Canvas.TextWidth(Paswd) + 8, Pos.Y + 18 + WndHint.Canvas.TextHeight(Paswd)); WndHint.ActivateHint(R, Paswd); end; end else if WndHint <> nil then begin WndHint.ReleaseHandle; WndHint := nil; end;end;Esta pronto! Agora basta voce executar a aplicacao e mante-la minimizada. Quando parar o ponteiro do mouse