Shellexcecute wird nicht ausgeführt

[__patrik]

Hallo zusammen,

gibt es eine Einstellung unter Windows die die Ausführung eines Shellexcecute-Befehls unterdrücken kann?
Folgender Befehl sollte den Standardbrowser mit der übergebenen Adresse starten. Funzt auf manchen Rechnern auf anderen Passiert garnix:-(

Code:

 tempchar := pchar('http://www.irgendeineAdresse.de');
 Shellexecute( Application.MainForm.Handle, nil, tempchar , nil, nil, SW_SHOW);

Er wird durch ein OnMousedown-Ereignis in einer Listviewkomponente ausgeführt.

Wer weiss Hilfe?

MfG
Patrik

[Christian Seehase]

Moin Patrik,

als erstes würde ich mal das Verb mit dazuschreiben

Delphi-Quellcode:

Shellexecute( Application.MainForm.Handle, 'open', tempchar , nil, nil, SW_SHOW);

Bei nil sollte zwar, i.d.R., open automatisch genommen werden, aber sicher ist sicher ;-)

Sollte das auch nicht gehen, schau Dir mal an, ob denn für HTTP überhaupt ein Verknüpfung vorhanden ist.

Zu finden unter:

HKEY_CLASSES_ROOT\http\shell\open\command

[__patrik]

Dankeschön,

das war das wonach ich gesucht habe!

:-)
patrik

[__patrik]

Hallo Chris,

war wohl ein wenig vorschnell von mir geschossen.
Kann es noch eine andere Möglichkeit geben warum Shellexcecute net ausgeführt wird?
Das Problem tritt hauptsächlich bei Systemen auf auf denen AOL installiert ist. Verändert die AOL-Software irgendwas was das Ausführen verhindert?

:cry:

Patrik

[Christian Seehase]

Moin Patrik,

was steht denn in der Registry? (Pfad siehe oben)

[__patrik]

Hallo Chris,

das mit dem Registrierungspfad ist genau so wie du es beschrieben hast.

Bin ein wenig knapp an Ideen:-(

MfG
patrik

[Christian Seehase]

Moin Patrik,

was jetzt eventuell die AOL Software auf dem Rechner nacht weiss ich leider auch nicht. Ich kann also nicht beurteilen ob die hierbei eine Rolle spielt.

Was passiert denn, wenn man bei den Rechnern, bei denen es nicht funktioniert direkt aus dem Favoritenordner eine HTTP Url doppelt klickt?

[__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!

[__patrik]

Hallo Chris,

problem hat sich erledigt! Habe anstatt der Shellexecute die RunProcess-Routine von Luckylucy genommen.
Funzt wunderbar:-)

Danke
Patrik :bounce2: