ShellExecute

[ColdFire]

Hi Leute ein delikates problem plagt mich und zwar...

Code:

 
begin
    ShellExecute(Handle, 'open', PChar(EDIT.Text) , nil, nil, SW_SHOW);
{        http:// muss dabei sein  }
end;

Dass Problem dass ich habe ist jenes und zwar wenn ein user hier ( EDIT) nur www.delphipraxis.ne eingibt kann er über das feld die page nicht aufrufen

d.h. W W W.irgendwas.at geht nicht
http : // W W W.irgendwas.at geht !!!

ich habe aber auch keine möglichkeit über eine variable URL dass hinzubekommen

!!! GEHT NICHT !!!

Code:

var Url : string;
  begin
    url:= 'http://';
    ShellExecute(Handle, 'open', Url +  PChar(EDIT.Text) , nil, nil, SW_SHOW);
  end;

wie kann ich dass sonst lösen HILFE!

mfg CF

[Sharky]

Hai ColdFire,

versuche es doch mal so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  url : String;
begin
  url := Edit1.Text;
  if Pos ('http://',url) = 0 then
  begin
    url := 'http://' + url;
  end;
  ShellExecute(Handle, 'open', PAnsiChar(url) , nil, nil, SW_SHOW);
end;

[ColdFire]

ahrr... wie ich dieses Forum Liebe!

Vielen Dank für die schnelle Antwort hatte im moment eine hirnblockade

lg CF