url bzw. e-mail-adresse aus delphi heraus öffnen!

[Simple]

ist ja super bei euch hier, man bekommt ja fix eine antwort habt dank

mit opennew funzt nix, auch mit der function RunProcess geht nix, leider

ich habe folgendes ausprobiert:

Delphi-Quellcode:

uses 
  Registry; 

{ ... } 

var 
  reg : TRegistry; 
  cmd : string; 
begin 
  reg := TRegistry.Create(KEY_READ); 
  with reg do 
  try 
    RootKey := HKEY_CLASSES_ROOT; 
    if(OpenKey('http\shell\open\command',false)) then 
    try 
      cmd := ReadString(''); 
    finally 
      CloseKey; 
    end; 
  finally 
    Free; 
  end; 

  cmd:= Copy(Copy(cmd, Pos('"',cmd) +1, Length(cmd)), 0,Pos('"', Copy(cmd, Pos('"',cmd) +1, Length(cmd))) -1);

  ShellExecute(0, 
    'open', 
    pchar(cmd), 
    'http://www.delphipraxis.net', 
    nil, 
    SW_SHOWNORMAL); 
end;

die quellecode hier vom board, funzt aber auch nicht, erst nach veränderung vom string cmd wie folgt:

cmd:= Copy(Copy(cmd, Pos('"',cmd) +1, Length(cmd)), 0,Pos('"', Copy(cmd, Pos('"',cmd) +1, Length(cmd))) -1); ( wenn es eine bessere möglichkeit gibt, cmd zu verändern, dann laßt es mich wissen )
im klartext mache aus:

"C:\Programme\Internet Explorer\iexplore.exe" -nohome = C:\Programme\Internet Explorer\iexplore.exe

so geht es und funzt gut, weiß ich aber nicht wie es mit anderen betriebssysteme klappt, ich benutze win2000

gruß simple

[edit=FuckRacism]Delphi-Syntax eingefügt, beim nächsten Mal bitte selber machen. Mfg, FuckRacism[/edit]