Olha aí o erro no finalzinho: "FreeAndNil(fAlertaMsn);"
Remova, coloque ele no OnClose da form
Agora vai funcionar. Não adianta baixar outros componentes, se não tentar
descobrir o porque está dando erro vai ser um programador de copiar e colar.
blz.
--- Em delphi-br@yahoogrupos.com.br, Felipe Milagres <felipe_a_milag...@...>
escreveu
>
>
> o codigo eu tirei dakele link, segue ele abaixo:
> procedure TForm1.Button1Click(Sender: TObject);var I: Integer; fAlertaMsn:
> TForm; BarraIniciar: HWND; {Barra Iniciar} tmAltura: Integer; tmRect:
> TRect; xTop : Integer; xIniTop : Integer;begin //localiza o Handle da
> janela iniciar BarraIniciar := FindWindow('Shell_TrayWnd', nil); //Pega o
> "retângulo" que envolve a barra e sua altura GetWindowRect(BarraIniciar,
> tmRect); tmAltura := tmRect.Bottom - tmRect.Top; fAlertaMsn :=
> TfAlertaMsn.Create(Self); with fAlertaMsn do begin Left := Screen.Width
> - ClientWidth; if tmRect.Top = -2 then tmAltura := 30; //Pega o
> top final xTop := Screen.Height - ClientHeight - tmAltura; //Pega o top
> inicial xIniTop := Screen.Height + ClientHeight + tmAltura; Top :=
> xIniTop; for I := xIniTop downto xTop do begin Top := Top - 1;
> Show; Update; Application.ProcessMessages;
> Sleep(10); end; Sleep(3000); Close;
> FreeAndNil(fAlertaMsn); end;end;
> _______________________________________________________________________
>
>
>
> Att,
>
>
>
> Felipe Milagres
>
> --- Em sex, 3/7/09, embarcadelphi <embarcadel...@...> escreveu:
>
> De: embarcadelphi <embarcadel...@...>
> Assunto: [delphi-br] Re: Alerta do MSN no Delphi
> Para: delphi-br@yahoogrupos.com.br
> Data: Sexta-feira, 3 de Julho de 2009, 15:08
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> --- Em delphi...@yahoogrup os.com.br, Felipe Milagres
> <felipe_a_milagres@ ...> escreveu
>
>
>
> > Project Project1.exe raised exception class EAccessViolation with message
> > 'Access violation at address 00411DA5 in module 'Project1.exe. Write of
> > address 0000003B'. Process stopped ....
>
> >
>
> > como (o meu ingles é ruin e) essa mensagem nao deu para MIM nenhuma pista
> > de qual é o erro ..
>
>
>
> Quem sabe inglês também não vai saber traduzir, este erro só traduz quem é
> programador e está com o código fonte nas mãos, digo, aberto no Delphi.
>
>
>
> Isso aí é endereçamento de memória. talvez algum objeto foi deletado da
> memória (<nomedoobjeto> .free), depois você foi tentar refazer a mesma rotina
> que foi feito antes (no primeiro click), só que agora este objeto não existe
> mais. Só vendo o código para saber mais... Se puder colocar o código desse
> botão que você clica e dá este erro, fica mais fácil para saber.
>
>
>
> blz
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> ____________________________________________________________________________________
> Veja quais são os assuntos do momento no Yahoo! +Buscados
> http://br.maisbuscados.yahoo.com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
