fxsoftware

Jhonas vlw mais uma vez, agradeço muito todas as vezes que precisei você sempre ajudou, grande abraço.

Gostaria da ajuda de vocês aqui do forum, pois me deparei com um problema que achei que fosse facil de resolver, procurei muito no google, testei varios exemplos mas nenhum que resolve-se minha questão. To fazendo um sistema basico de marcação de ponto para funcionarios. O funcionario tem uma carga horaria de 180hs mensal, pensei em pegar a quantidade de horas trabalhadas e subtrair por 180 o resultado iria colocar como hora extras, mas não estou conseguindo. Ex: funcionario trabalhou 193:49:00 pegava esse valor e subtraia por 180:00:00 o resultado: 13:49:00 qualquer coisa se não entenderam posso tentar explicar melhor desde já agradeço.

Jhonas muito obrigado por tudo mesmo com esse seu exemplo concluir essa parte do meu projeto e só tenho que te agradecer, eu tinha feito algo parecido com esse seu exemplo mas tava dando erro, mas agora esta tudo OK, grande abraço jhonas e boa noite.

Só tenho que agradecer Jhonas pela sua ajuda pois passei 1 dia e meio tentando e pesquisando na net e nada, graças a você e ao forum consegui resolver meu problema, grande abraço.

Jhonas obrigado por responder, conseguir realmente pegar o caption do tabsheet com seu codigo o unico problema e o name do RichEdit, como descrevir na pergunta, pois como ele e criado em tempo de execução fica dificil eu saber qual RichEdit é o ativo, pois no programa vai ter um MainMenu com a opção de salvar o conteudo, mas ele esta salvando so o conteudo do ultimo RichEdit criado e não o RichEdit ativo, se poder dar mas uma ajuda vou te agradecer muito, mas desde já agradeço pelo seu codigo pois foi de grande ajuda.

Estou aqui mais uma vez para tentar resolver um problema que estou tendo com meu projeto. Tenho um pagecontrol e as Tabsheet são criado em runtime, dentro de cada Tabsheet tambem são criado o RichEdit, gostaria de saber como salvar o conteudo do RichEdit quando ele estiver ativo, pois a unica forma que estou conseguindo e salvar o conteudo do ultimo RichEdit criado. Obs: Tenho um edit tambem criado dentro de casa Tabsheet com o caminho de onde vai ser salvo. Desde já agradeço a todos que ajudarem.

Obrigado mais uma vez jhonas pela sua ajuda, to fazendo alguns teste como você sugerio, vou tentar limitar tambem a quantidade de email na caixa de entrada pois so assim o programa não leva muito tempo para pecorrer todos os arquivos. abraço e bom final de semana cara.

Poxa jhonas não tinha pensado nisso realmente e uma otima ideia vou ver aqui. Eu tava pensando tambem em colocar esses dados que eu quero pegar no nome do arquivo, tipo: eduardo@mail.com_Trabalho_16-51-00.rtf e extrair os dados, mas não sei se e conveniente fazer isso. o que você me diz. obs: pois quem vai gerar esse arquivo e um outro programinha que fiz. o que você me diz.

Olha ae! {\rtf1\adeflang1025\ansi\ansicpg1252\uc1\adeff0\deff0\stshfdbch0\stshfloch37\stshfhich37\stshfbi37\deflang1046\deflangfe1046\themelang1046\themelangfe0\themelangcs0{\fonttbl{\f0\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f34\fbidi \froman\fcharset0\fprq2{\*\panose 02040503050406030204}Cambria Math;} {\f37\fbidi \fswiss\fcharset0\fprq2{\*\panose 020f0502020204030204}Calibri;}{\f39\fbidi \fswiss\fcharset0\fprq2{\*\panose 020b0604030504040204}Verdana;}{\flomajor\f31500\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;} {\fdbmajor\f31501\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\fhimajor\f31502\fbidi \froman\fcharset0\fprq2{\*\panose 02040503050406030204}Cambria;} {\fbimajor\f31503\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\flominor\f31504\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;} {\fdbminor\f31505\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\fhiminor\f31506\fbidi \fswiss\fcharset0\fprq2{\*\panose 020f0502020204030204}Calibri;} {\fbiminor\f31507\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f40\fbidi \froman\fcharset238\fprq2 Times New Roman CE;}{\f41\fbidi \froman\fcharset204\fprq2 Times New Roman Cyr;} {\f43\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;}{\f44\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;}{\f45\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\f46\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);} {\f47\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;}{\f48\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}{\f380\fbidi \froman\fcharset238\fprq2 Cambria Math CE;}{\f381\fbidi \froman\fcharset204\fprq2 Cambria Math Cyr;} {\f383\fbidi \froman\fcharset161\fprq2 Cambria Math Greek;}{\f384\fbidi \froman\fcharset162\fprq2 Cambria Math Tur;}{\f387\fbidi \froman\fcharset186\fprq2 Cambria Math Baltic;}{\f388\fbidi \froman\fcharset163\fprq2 Cambria Math (Vietnamese);} {\f410\fbidi \fswiss\fcharset238\fprq2 Calibri CE;}{\f411\fbidi \fswiss\fcharset204\fprq2 Calibri Cyr;}{\f413\fbidi \fswiss\fcharset161\fprq2 Calibri Greek;}{\f414\fbidi \fswiss\fcharset162\fprq2 Calibri Tur;} {\f417\fbidi \fswiss\fcharset186\fprq2 Calibri Baltic;}{\f418\fbidi \fswiss\fcharset163\fprq2 Calibri (Vietnamese);}{\f430\fbidi \fswiss\fcharset238\fprq2 Verdana CE;}{\f431\fbidi \fswiss\fcharset204\fprq2 Verdana Cyr;} {\f433\fbidi \fswiss\fcharset161\fprq2 Verdana Greek;}{\f434\fbidi \fswiss\fcharset162\fprq2 Verdana Tur;}{\f437\fbidi \fswiss\fcharset186\fprq2 Verdana Baltic;}{\f438\fbidi \fswiss\fcharset163\fprq2 Verdana (Vietnamese);} {\flomajor\f31508\fbidi \froman\fcharset238\fprq2 Times New Roman CE;}{\flomajor\f31509\fbidi \froman\fcharset204\fprq2 Times New Roman Cyr;}{\flomajor\f31511\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;} {\flomajor\f31512\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;}{\flomajor\f31513\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\flomajor\f31514\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);} {\flomajor\f31515\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;}{\flomajor\f31516\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}{\fdbmajor\f31518\fbidi \froman\fcharset238\fprq2 Times New Roman CE;} {\fdbmajor\f31519\fbidi \froman\fcharset204\fprq2 Times New Roman Cyr;}{\fdbmajor\f31521\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;}{\fdbmajor\f31522\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;} {\fdbmajor\f31523\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\fdbmajor\f31524\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);}{\fdbmajor\f31525\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;} {\fdbmajor\f31526\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}{\fhimajor\f31528\fbidi \froman\fcharset238\fprq2 Cambria CE;}{\fhimajor\f31529\fbidi \froman\fcharset204\fprq2 Cambria Cyr;} {\fhimajor\f31531\fbidi \froman\fcharset161\fprq2 Cambria Greek;}{\fhimajor\f31532\fbidi \froman\fcharset162\fprq2 Cambria Tur;}{\fhimajor\f31535\fbidi \froman\fcharset186\fprq2 Cambria Baltic;} {\fhimajor\f31536\fbidi \froman\fcharset163\fprq2 Cambria (Vietnamese);}{\fbimajor\f31538\fbidi \froman\fcharset238\fprq2 Times New Roman CE;}{\fbimajor\f31539\fbidi \froman\fcharset204\fprq2 Times New Roman Cyr;} {\fbimajor\f31541\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;}{\fbimajor\f31542\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;}{\fbimajor\f31543\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);} {\fbimajor\f31544\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);}{\fbimajor\f31545\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;}{\fbimajor\f31546\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);} {\flominor\f31548\fbidi \froman\fcharset238\fprq2 Times New Roman CE;}{\flominor\f31549\fbidi \froman\fcharset204\fprq2 Times New Roman Cyr;}{\flominor\f31551\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;} {\flominor\f31552\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;}{\flominor\f31553\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\flominor\f31554\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);} {\flominor\f31555\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;}{\flominor\f31556\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}{\fdbminor\f31558\fbidi \froman\fcharset238\fprq2 Times New Roman CE;} {\fdbminor\f31559\fbidi \froman\fcharset204\fprq2 Times New Roman Cyr;}{\fdbminor\f31561\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;}{\fdbminor\f31562\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;} {\fdbminor\f31563\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\fdbminor\f31564\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);}{\fdbminor\f31565\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;} {\fdbminor\f31566\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}{\fhiminor\f31568\fbidi \fswiss\fcharset238\fprq2 Calibri CE;}{\fhiminor\f31569\fbidi \fswiss\fcharset204\fprq2 Calibri Cyr;} {\fhiminor\f31571\fbidi \fswiss\fcharset161\fprq2 Calibri Greek;}{\fhiminor\f31572\fbidi \fswiss\fcharset162\fprq2 Calibri Tur;}{\fhiminor\f31575\fbidi \fswiss\fcharset186\fprq2 Calibri Baltic;} {\fhiminor\f31576\fbidi \fswiss\fcharset163\fprq2 Calibri (Vietnamese);}{\fbiminor\f31578\fbidi \froman\fcharset238\fprq2 Times New Roman CE;}{\fbiminor\f31579\fbidi \froman\fcharset204\fprq2 Times New Roman Cyr;} {\fbiminor\f31581\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;}{\fbiminor\f31582\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;}{\fbiminor\f31583\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);} {\fbiminor\f31584\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);}{\fbiminor\f31585\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;}{\fbiminor\f31586\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}} {\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255;\red0\green255\blue0;\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255;\red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0; \red128\green0\blue128;\red128\green0\blue0;\red128\green128\blue0;\red128\green128\blue128;\red192\green192\blue192;\chyperlink\ctint255\cshade255\red0\green0\blue255;\red153\green153\blue153;}{\*\defchp \f37 }{\*\defpap \ql \li0\ri0\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 }\noqfpromote {\stylesheet{\ql \li0\ri0\sa200\sl276\slmult1\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \rtlch\fcs1 \af0\afs22\alang1025 \ltrch\fcs0 \f37\fs22\lang1046\langfe1033\cgrid\langnp1046\langfenp1033 \snext0 \sqformat \spriority0 Normal;}{\*\cs10 \additive \ssemihidden \sunhideused \spriority1 Default Paragraph Font;}{\* \ts11\tsrowd\trftsWidthB3\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3\trcbpat1\trcfpat1\tblind0\tblindtype3\tsvertalt\tsbrdrt\tsbrdrl\tsbrdrb\tsbrdrr\tsbrdrdgl\tsbrdrdgr\tsbrdrh\tsbrdrv \ql \li0\ri0\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \rtlch\fcs1 \af37\afs20\alang1025 \ltrch\fcs0 \f37\fs20\lang1046\langfe1046\cgrid\langnp1046\langfenp1046 \snext11 \ssemihidden \sunhideused Normal Table;}{\*\cs15 \additive \rtlch\fcs1 \af0 \ltrch\fcs0 \ul\cf17 \sbasedon10 \sunhideused \styrsid15618729 Hyperlink;}}{\*\rsidtbl \rsid213475\rsid4223619\rsid7276757\rsid15618729\rsid16325331}{\mmathPr\mmathFont34\mbrkBin0\mbrkBinSub0\msmallFrac0\mdispDef1\mlMargin0 \mrMargin0\mdefJc1\mwrapIndent1440\mintLim0\mnaryLim1}{\info{\author Edu FX}{\operator Edu FX}{\creatim\yr2015\mo5\dy21\hr15\min16}{\revtim\yr2015\mo5\dy22\hr16\min47}{\version4}{\edmins2}{\nofpages1}{\nofwords99}{\nofchars540}{\nofcharsws638} {\vern49247}}{\*\xmlnstbl {\xmlns1 http://schemas.microsoft.com/office/word/2003/wordml}}\paperw11906\paperh16838\margl1701\margr1701\margt1417\margb1417\gutter0\ltrsect \deftab708\widowctrl\ftnbj\aenddoc\hyphhotz425\trackmoves0\trackformatting1\donotembedsysfont1\relyonvml0\donotembedlingdata0\grfdocevents0\validatexml1\showplaceholdtext0\ignoremixedcontent0\saveinvalidxml0 \showxmlerrors1\noxlattoyen\expshrtn\noultrlspc\dntblnsbdb\nospaceforul\formshade\horzdoc\dgmargin\dghspace180\dgvspace180\dghorigin1701\dgvorigin1417\dghshow1\dgvshow1 \jexpand\viewkind1\viewscale100\pgbrdrhead\pgbrdrfoot\splytwnine\ftnlytwnine\htmautsp\nolnhtadjtbl\useltbaln\alntblind\lytcalctblwd\lyttblrtgr\lnbrkrule\nobrkwrptbl\snaptogridincell\allowfieldendsel\wrppunct \asianbrkrule\rsidroot213475\newtblstyruls\nogrowautofit\utinl \fet0{\*\wgrffmtfilter 2450}\ilfomacatclnup0\ltrpar \sectd \ltrsect\linex0\headery708\footery708\colsx708\endnhere\sectlinegrid360\sectdefaultcl\sftnbj {\*\pnseclvl1 \pnucrm\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl2\pnucltr\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl3\pndec\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl4\pnlcltr\pnstart1\pnindent720\pnhang {\pntxta )}}{\*\pnseclvl5 \pndec\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl6\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl7\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl8\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl9\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}\pard\plain \ltrpar\ql \li0\ri0\sa200\sl276\slmult1\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \rtlch\fcs1 \af0\afs22\alang1025 \ltrch\fcs0 \f37\fs22\lang1046\langfe1033\cgrid\langnp1046\langfenp1033 {\field{\*\fldinst {\rtlch\fcs1 \af0\afs15 \ltrch\fcs0 \f39\fs15\cf18\insrsid15618729 HYPERLINK "mailto:residial@gmail.com"

eduardo@mail.com Trabalho Texto simples sem condificação. aqui fica o corpo do email (obs: as vezes vai ter imagens mas sempre abaixo do corpo do email) esta aparecendo isso no listview ({\rtf1\adeflang1025\ansi\ansicpg1252\uc1\adeff31507\deff0\stshfdbch31505\stshfloch31506\stshfhich31506\stshfbi31507\deflang1046\deflangfe1046\themelang1046\themelangfe0\themelangcs0{\fonttbl{\f0\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Tim)

Estou tentando fazer isso agora mas surgiu um problema, esta sendo add na listview a codificação do rtf e não a string do email e assunto, sabe dizer o porque?

Obrigado pelo resposta rapida jhonas, vou testar aqui e volto pra dizer se deu tudo certo, mas de inicio o que eu percebo no seu codigo é que ele pega a string de 1 unico arquivo e não de varios arquivos, mesmo assim te agradeço muito.

Gostaria de pedir ajuda de vocês aqui do forum pois estou tentando resolver esse meu problema e já fazem 2 dias e nada. Tenho uma pasta chamada EMAIL com varios arquivos .rtf dentro de cada arquivo na parte do topo, nas 2 primeira linhas tenho: Ex: edu@mail.com Trabalho obs: sendo que cada arquivo tem a string diferente. Preciso pegar de cada arquivo essas 2 string e carregar todos para o listview, ele ta assim: config: listview.viewstyle := vsReport; _________________________ email | Assunto edu@mail.com | Trabalho carlos@mail.com | Trabalho Gostaria de fica-se assim como esse exemplo de cima que demostrei. Obs: tem como fazer isso? e se não tiver teria como me dar alguma ideia de como contorna essa situação, desde já agradeço!

Desculpa a demora para responder Jhonas. Pronto fiz o q você falou e realmente ele não indentificou, só achei estranho porque faço download de alguns aplicativos e ele não dar a mesmo msg, fiz alguns teste ate usando visual studio e apareceu a mesmo janela. Só achei estranho porque isso so tinha acontecido comigo quando usava Delphi 7, nas versões posteriores nunca tive esse problema so agora. Abraços

Aqui esta um link de um video que fiz mostrando o norton detectando o arquivo como suspeito! Assistir Video

Obrigado Jhonas por responder tão rapido! Já testei em varios servidores como 4shared, space,mediafire ,RapidShare etc... Obs: também achei q era algum problema com servidores mas acredito que não seja, tava pesquisando e encontrei algumas informações arrespeito que os antivirus so aceita agora aplicação feita em delphi com certificado, não entendi direito, pois o post estava meio bagunçado e não era tão explicativo. Fiz um teste também so criando um form sem nenhum componente e hospedei, quando faço o download o norton avisa q o arquivo e suspeito, mandei o link para algumas pessoas e as mesmo informaram q o avast, avira também bloqueou o arquivo. O engraçado disso e porque eu copiu project1.exe da pasta do projeto e mando para area de trabalho scaneo e não detecta quando faço o download do mesmo acusa! Preciso muito saber o porque disso, desde já agradeço as infor e dicas.

alguém saberia o porque todas aplicações feita em delphi esta sendo detectada como arquivos suspeitos? crie algumas aplicações em delphi 2010 e delphi xe2 os mesmo esta sendo detectado. alguém teria alguma solução? Obs: As aplicações so são detectada quando e colocada pra download, apois baixar o antivirus detecta. rodando na minha maquina sem baixar o arquivo ele executa normal.

Obrigado por tudo Jhonas e vlw pelas dicas foi de grande ajuda.

Obrigado Jhonas por responder e desculpa pela demora pois estava viajando e por isso so respondir agora. Eu tirei as propagandas desse site ('http://www.tvmeubrasil.com/megacubo/action.html') configurando assim EmbeddedWB1 - DownloadOptions - DontExecuteScripts = true, so que nesse site ainda continuava um scripts que cobria o player Obs: era como se fosse uma capa meio transparente q deixava a imagem do player mas escura acho que você entrou e viu o que estou falando. A minha solução que achei foi meio trabalhoso mas foi a unica q conseguir, vou colocar um exemplo abaixo: Pt.X := (213); Pt.Y := (190); {Obtém o point no centro do Button1} //Pt.x := Button2.Left + (Button2.Width div 2); //Pt.y := Button2.Top + (Button2.Height div 2); {Converte Pt para as coordenadas da tela } Pt := ClientToScreen(Pt); Pt.x := Round(Pt.x * (65535 / Screen.Width)); Pt.y := Round(Pt.y * (65535 / Screen.Height)); {Move o mouse} Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0); {Simula o pressionamento do botão esquerdo do mouse} Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0); {Simula soltando o botão esquerdo do mouse} Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0); Coloquei o codigo no Button1 e disparei o click com o Timer para poder fazer um autoclik nas propagandas colocando as cordenadas exatas do Pt := (213); Baixar meu Projeto - Se você poder dar uma opnião o que eu posso modificar fico grato. Sobre o bloqueio do <object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' via codigo como posso fazer isso?

Obrigado pela atenção Jhonas eu fico no aguardo. enquanto isso vou tentando por aqui. abraço.

Não conseguir executar o script da pagina se você poder me ajudar de novo desde de já agradeço. O site e esse http://www.tvmeubrasil.com/megacubo/action.html não esta hospedado por mim. Abraço.

Obrigado Jhonas pela resposta vou tentar aqui e qualquer coisa volto pra dizer se conseguir. :D

Bom sou novo no forum e queria tirar uma duvida com vocês pois já tentei de tudo e não conseguir resolver meu problema. -Estou criando um aplicativo em delphi "TV Online" fiz um esquema meio ganbiarra para tirar aquelas propagandas xatas ate ae td bem o meu problema e que encontrei um site que tem um player maior e bem melhor pra se assistir mas o problema e que tem um scripts que não deixa eu fechar a propaganda, OBS: eu consigo ate tirar a propaganda usando TEmbeddedWB uma opção que tem nele mas ainda fica um scripts cobrindo player. Se não entenderam posso tentar me explicar melhor acho q compliquei um pouco mas quem poder me ajudar desde de já agradeço. O script e esse ele fica dentro de uma DIV. &lt;script type="text/javascript"> if(window!=top){top.location.href=location.href} window.onload=function(){if(!document.getElementById('div_video_ads')){return false};window['acc']=12;window['act']=setInterval(function(){if(window['acc']>0){document.getElementById('o-cl').innerHTML=window['acc']+"s"}else{document.getElementById('o-cl').innerHTML=X FECHAR";document.getElementById('div_video_ads').onmousedown=document.getElementById('o-cl').onmousedown=function(){clearInterval(window['act]);document.getElementById('div_video_ads').parentNode.removeChild(document.getElementById('div_video_ads'))}}window['acc']--},1000)};window.onerror=function(){return true}; </script>