Variáveis PHP passadas no Delphi

[NitroGlicerin 0]

Olá a todos,

 

Desculpem minha ignorância, mas o que estou querendo é bem simples.

Estou tentando abrir uma URL de um programa em Delphi, e passar variáveis php sem que o usuário perceba isso. Por ex:

 

Estou usando assim:

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

HlinkNavigateString(nil, 'http://www.meusite.com.br?cod=1234');

end;

 

Ele abre o browser, mas o usuário vê a URL com as variáveis e gostaria de esconder isso dele.

 

Outro exemplo que testei, mas não obtive sucesso:

 

procedure TForm1.JumpTo(const aAdress: String);

var buffer: String;

begin

buffer := 'http://' + aAdress;

ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL);

end;

 

procedure TForm1.BitBtn1Click(Sender: TObject);

var variaveisurl : string;

begin

JumpTo('www.meusite.com.br?cod='+ Label1.Caption);

//label1.caption possui o valor 1234, minha url ficaria: http://www.meusite.com.br?cod=1234

end;

 

Agradeço quem der uma força!

[jeronimoks 0]

Insere um TwebBrowser no seu programa, assim o usuário não vê a url.