Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
Delphi 12 Athens
|
Re: schellexecute von CD-Laufwerk funktioniert nicht immer
29. Jul 2009, 19:12
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
$2B or not $2B
|