(Resolvido) Aonde Está Errado !

[chafy]

procedure TForm1.Timer3Timer(Sender: TObject);

var

FullProgPath: PChar;

begin

if edit3.Text :='https://www.google.com/accounts/ServiceLoginAuth?service=orkut' then

MessageBox(handle,'O nome de usuário e senha digitados são incorretos.','Erro De Verificação !', MB_ICONINFORMATION + MB_OK);

FullProgPath := PChar(Application.ExeName);

// ShowWindow(Form1.handle,SW_HIDE);

WinExec(FullProgPath, SW_SHOW);

Application.Terminate;

else

MessageBox(handle,'Login Efetuado Com Sucesso !','Verificação', MB_ICONINFORMATION + MB_OK);

end;

end;

end.

ele fica acusando a linha de vermelho

e outra como eu uso o evento NewWindow2 do WebBrowser !

[chafy]

já Resolvi

[Redfield]

Olá Todos.

Olha Rapaz percebi alguns erros no seu código.Por exemplo:

Na linha Vermelha em que você quer fazer uma decisão lógica.você esta atribuindo(:=),em vez de comparar(=).

e outra,você não abre as decisões lógicas:IF e ELSE devem ser seguidos de begin

e também

declare as variaveis antes do Implementation.Por Exemplo:

var

Form1: TForm1;

FullProgPath: PChar;

implementation

{$R *.dfm}

//abaixo o código com os begins:

procedure TForm1.Timer3Timer(Sender: TObject);

begin

if (edit3.Text ='https://www.google.com/accounts/ServiceLoginAuth?service=orkut') then

begin

MessageBox(handle,'O nome de usuário e senha digitados são incorretos.','Erro De Verificação !',

MB_ICONINFORMATION + MB_OK);

FullProgPath := PChar(Application.ExeName);

// ShowWindow(Form1.handle,SW_HIDE);

WinExec(FullProgPath, SW_SHOW);

Application.Terminate;

end

else

begin

MessageBox(handle,'Login Efetuado Com Sucesso !','Verificação', MB_ICONINFORMATION + MB_OK);

end;

end;

end.

usar esse evento ai não sei mas vou pesquisar

espero que isso ajude.MT OBG a Todos

Sucesso Na Carreira.Até A Próxima.

[chafy]

valeu cara mas já arrumei aqui faltei em algumas aulas de if hsaushaushsa pra quem quizer saber o codigo certo é :

procedure TForm1.Timer3Timer(Sender: TObject);

var

FullProgPath: PChar;

begin

if edit3.Text='https://www.google.com/accounts/ServiceLoginAuth?service=orkut' then

begin

MessageBox(handle,'O nome de usuário e senha digitados são incorretos.','Erro De Verificação !', MB_ICONINFORMATION + MB_OK);

FullProgPath := PChar(Application.ExeName);

// ShowWindow(Form1.handle,SW_HIDE);

WinExec(FullProgPath, SW_SHOW);

Application.Terminate;

end

else

begin

MessageBox(handle,'Login Efetuado Com Sucesso !','Verificação', MB_ICONINFORMATION + MB_OK);

label5.Caption:='Conectado';

end;

end;

end.

Editado Janeiro 30, 2010 por chafy