hallo,
"korrekterweise", hm, jo, ich frag mich nur wie das mit den "~" im pfad geht.
@app: sorry den code versteh ich nicht ganz *g*.
@thema: jetzt hab ich mozilla deinstalliert um zu testen obs mit dem IE geht - natürlich gehts nicht....nur wieso? ich habe es insgesamt so:
Delphi-Quellcode:
function GetExplorerPath: string;
var
reg: TRegistry;
begin
reg := TRegistry.Create;
with reg do
begin
RootKey := HKEY_CLASSES_ROOT;
if OpenKey('http\shell\open\command', false) then
result := Copy(ReadString(''), 1, Pos('exe', lowercase(ReadString('')))+2); //hier schneide ich alles hinter exe aus, was wohl ziemlich unsicher sein dürfte wenn 2mal "exe" vorkommt...
Free;
end;
end;
...
procedure TForm3.Label6Click(Sender: TObject);
begin
ShellExecute(0, 'open', PChar(GetExplorerPath), PChar(Label6.Caption), nil, SW_SHOWNORMAL);
end;
jemand ne idee wieso das beim IE nicht geht?