[Ajuda] Ajuda aqui com o redirecionamente para site.

[Romersom 0]

Eai galera, ta tendo um erro aqui com o redirecionamento, eu faço tudo perfeitamente, vou na uses adiciono "ShellApi", depois do dois clique no botão e adiciono "ShellExecute(handle,'open',PChar('

http://www.webcheats.com.br/forum'), '','',SW_SHOWNORMAL)" Mas ta sempre dando esse erro!

 

 

Alguém ajuda ai, pf?

 

Agradeço desde já.

[~OwneR~ 8]

Tá faltando um ; (ponto-e-vírgula) alí no final

[Surfistinha£ 25]

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ShellApi;

 

 

begin

ShellExecute(handle,'open',PChar('http://www.webcheats.com.br/forum'), '','',SW_SHOWNORMAL);

end;

 

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ShellApi;

 

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

begin

ShellExecute(handle,'open',PChar('http://www.webcheats.com.br/forum'), '','',SW_SHOWNORMAL);

end;

end;

 

end.

[' Extasy 0]

tambem pode ser

ShellExecute(Handle,'open','http://www.webcheats.com.br/forum/', '',nil,0);

[''MM'' 0]

Adicione ShellApi nas Uses.

[Surfistinha£ 25]

Se nao for assim

 

procedure TForm1.Button1Click(Sender: TObject);

begin

ShellExecute(handle,'open',PChar('http://www.webcheats.com.br/forum'), '','',SW_SHOWNORMAL);

end;

end;

 

end.

 

tente assim

 

procedure TForm1.Button1Click(Sender: TObject);

begin

ShellExecute(handle,'open',PChar('http://www.webcheats.com.br/forum'), '','',SW_SHOWNORMAL);

end;

 

end.

[Ryokusei 28]

Pra que declarar uses? Só vai engordar seu aplicativo.

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[Niik 4]

Man Pra definir melhor o erro.. post uma Screen Shot...

 

Vai ser melhor pra gent te ajudar ;D

 

Pra que declarar uses? Só vai engordar seu aplicativo.

 

WinExec('cmd /c start

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

', SW_HIDE);

 

Booooa!

[קђ๏єภเא 17]

Pra que declarar uses? Só vai engordar seu aplicativo.

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

E man mais olha:

Se o cara usar outros sistemas operacionais vai da um erro lascado.

Entao e melhor fazer um que seja compativel com tudo, usando o outro.

[Ryokusei 28]

E man mais olha:

Se o cara usar outros sistemas operacionais vai da um erro lascado.

Entao e melhor fazer um que seja compativel com tudo, usando o outro.

 

Não importa, se for outro sistema operacional o aplicativo nem vai rodar.