Hy @ all,
ich wollte das Script vom Delphi Treff nutzen um eine bestimmte Dateiendung für mein Programm zu reservieren. Das klappt auch auf der lokalen Maschine sehr gut, nur bei Dateien die im Netzwerk liegen hapert es noch! Da fragt er mich jedesmal wieder (selbst wenn ich auf "diese Anwendung immer benutzen" klicke) mit welchem Programm ich die Datei öffnen will!
Hier der Code:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
| function InstallExt(Extension, ExtDescription, FileDescription,
OpenWith, ParamString: string; IconIndex: Integer = 0): Boolean; var
Reg: TRegistry;
begin
Result := False;
if (Extension<>'') then
begin
if (Extension[1]<>'.') then
Extension := '.' + Extension;
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CLASSES_ROOT;
if Reg.OpenKey(Extension, True) then
begin
Reg.WriteString('', ExtDescription);
if Reg.OpenKey('\' + ExtDescription, True) then
begin
Reg.WriteString('', FileDescription);
if Reg.OpenKey('DefaultIcon', True) then
begin
Reg.WriteString('', Format('%s,%d', [OpenWith, IconIndex]));
if Reg.OpenKey('\' + ExtDescription + '\Shell\Open\Command', True) then
begin
Reg.WriteString('', Format('"%s" "%s"', [OpenWith, ParamString]));
Result:=True;
end;
end;
end;
end;
finally
Reg.Free;
end;
end;
end; |
Muss ich da vielleicht die Registrierung auf dem Server vornehmen?
Weiß jemand woran es liegen könnte? Danke schonmal im vorraus!
Lg
DorJO
Weiß vielleicht jemand einen Trick?