Shellexcecute wird nicht ausgeführt

[__patrik]

Hallo Chris,

ganz nach dem Motto: "wenns net geht fang was neues an" hab ich das Codebeispiel von MathiasSimmack aus dem API-Forum genommen und versucht das zum laufen zu bekommen, aber es will net so recht. Er liest zwar die ie.exe richtig ein aber nix passiert

Code:

{ ... }
procedure checkReg;
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;

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

Bitte Hilfe

Patrik

Vielleicht hätte ich doch lieber Orgelbauer oder Kerzenschnitzer werden sollen!