schellexecute von CD-Laufwerk funktioniert nicht immer

[himitsu]

hab seit Jahren dieses in Programmen

ist jetzt für Links im Programm vorgesehn (also für Labels welche wie ein Link dargestellt werden und wo im Hint die URL versteckt ist),

aber man kann ja auch einfach mal schnell TLabel(Sender).Hint durch irgendeinen String ersetzen.

Delphi-Quellcode:

Procedure TMainForm.Label11Click(Sender: TObject);
  Var S, S2: String;
    i: Integer;
    B: Boolean;

  Begin
    If Pos('mailto:', LowerCase(Trim(TLabel(Sender).Hint))) <> 1 Then Begin
      If not (RegQueryValue(HKEY_CLASSES_ROOT, '.html', nil, i) in [NO_ERROR, ERROR_MORE_DATA]) Then i := 0;
      SetLength(S, (i div SizeOf(Char)) - 1);
      If RegQueryValue(HKEY_CLASSES_ROOT, '.html', PChar(S), i) <> NO_ERROR Then S := '';
      S := S + '\shell\opennew\command';
      If not (RegQueryValue(HKEY_CLASSES_ROOT, PChar(S), nil, i) in [NO_ERROR, ERROR_MORE_DATA]) Then i := 0;
      SetLength(S2, (i div SizeOf(Char)) - 1);
      If RegQueryValue(HKEY_CLASSES_ROOT, PChar(S), PChar(S2), i) <> NO_ERROR Then S2 := '';
      If S2 = '' Then Begin
        Delete(S, Length(S) - 10, 3);
        If not (RegQueryValue(HKEY_CLASSES_ROOT, PChar(S), nil, i) in [NO_ERROR, ERROR_MORE_DATA]) Then i := 0;
        SetLength(S2, (i div SizeOf(Char)) - 1);
        If RegQueryValue(HKEY_CLASSES_ROOT, PChar(S), PChar(S2), i) <> NO_ERROR Then S2 := '';
      End;
      i := 1;
      B := False;
      While (i <= Length(S2)) and ((S2[i] <> ' ') or B) do Begin
        If S2[i] = '"' Then B := not B;
        Inc(i);
      End;
      S := Copy(S2, 1, i - 1);
      Delete(S2, 1, i);
      For i := Length(S) downto 1 do
        If S[i] = '"' Then Delete(S, i, 1);
      S  := Trim(S);
      S2 := Trim(S2);
      If (S <> '') and (Pos('%1', S2) > 0) Then Begin
        S2 := StringReplace(S2, '%1', Trim(TLabel(Sender).Hint), []);
        If ShellExecute(Application.Handle, nil, PChar(S), PChar(S2), nil, SW_SHOWNORMAL) <= 32 Then S := '';
      End Else S := '';
    End Else S := '';
    If S = '' Then ShellExecute(Application.Handle, 'open', PChar(Trim(TLabel(Sender).Hint)), nil, nil, SW_SHOWNORMAL);
  End;

Also der Code versucht den Standardbrowser rauszubekommen, davon eine neue Instanz zu starten und dieser die URL mitzugeben.

Hauptgrund für den Umweg war mal, daß die URL in einem neuem Browserfenster gestartet werden sollte.
Wenn z.B. schon eine IE-Instanz geladen und der IE der Standardbrowser war, dann öffnete damals vorallem der IE die URL in diesem Fenster und die darin geöffnete Seite war "weg" ... mehrere Tabs gab's ja damals eh noch nicht und ich fand es voll nervig, wenn eine Webseite verschwand.

[edit]
hab grad gemerkt, daß es nicht D2009-tauglich was ... und hab schnell noch ein paar div SizeOf(Char) eingefügt