Zitat von
teebee:
Dieser Bereich heißt "Places Bar".
Hier findest Du einen Artikel dazu, und
hier eine Anpassung an Delphi.
das hat bei mir nicht wirklich funktioniert, hab den OPendialog nur noch im Win2000 Style bekommen, vielleicht habe ich auch was falsch gemacht...
Ich hab mir jetzt was eigenes geschrieben...
Delphi-Quellcode:
uses Registry;
procedure TFormFab.Oeffnen1Click(Sender: TObject);
var Filename : String;
begin
SetPlacesBar;
try
if Opendialog1.Execute then
begin
// mach was
end;
finally
ResetPlacesBar;
end;
end;
//*********************************************************************************************************************
Procedure TFormFab.SetPlacesBar;
begin
with TRegistry.Create do
try
RootKey := HKEY_CURRENT_USER;
if OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\ComDlg32\Placesbar',True) then
begin
WriteString('Place0', 'O:\OFC-FileStorage\FabSources\');
WriteString('Place1', 'O:\Prodator 2\');
WriteString('Place2', 'O:\');
WriteInteger('Place3', 17); //Arbeitsplatz
WriteString('Place4', 'Desktop');
CloseKey;
end;
finally
Free;
end;
end;
//*********************************************************************************************************************
procedure TFormFab.ResetPlacesBar; //setzt die PlacesBar wieder auf den Standard
begin
with TRegistry.Create do
try
RootKey := HKEY_CURRENT_USER;
if OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\ComDlg32\Placesbar',True) then
begin
WriteInteger('Place0', 8); //Verlauf
WriteInteger('Place1', 0); //Desktop
WriteInteger('Place2', 5); //Eigene Dateien
WriteInteger('Place3', 17); //Arbeitsplatz
WriteInteger('Place4', 18); //Netzwerkumgebung
CloseKey;
end;
finally
Free;
end;
end;
damit funktioniert es.
Viel Spaß damit, sollte es jemand brauchen können
Gruß Ruben