AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

SHGetFolderLocation

Ein Thema von Luckie · begonnen am 25. Jun 2009 · letzter Beitrag vom 25. Jun 2009
Antwort Antwort
Seite 1 von 3  1 23      
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#1

SHGetFolderLocation

  Alt 25. Jun 2009, 00:20
Da ja die API-Funktion MSDN-Library durchsuchenSHGetSpecialFolderLocation veraltet ist und man stattdessen MSDN-Library durchsuchenSHgetFolderLocation benutzen sollte, versuche ich gerade meinen Code, um die Pfade zu Systemordner zu ermitteln zu überarbeiten:
Delphi-Quellcode:
uses
  Windows, SysUtils, shlobj, ActiveX;

function SHGetFolderLocation (hwndOwnder: THandle; nFolder: Integer; hToken: THandle; dwReserved: DWORD; ppidl:
  PItemIdList): HRESULT; stdcall; external 'shell32.dllname 'SHGetFolderLocation';
function SHGetPathFromIDListW(Pidl: PItemIDList; pszPath: PWideChar): BOOL; stdcall; external 'shell32.dll'
  name 'SHGetPathFromIDListW';

function PathFromIDList(Pidl: PItemIdList): WideString;
begin
  SetLength(Result, MAX_PATH);
  if not SHGetPathFromIDListW(Pidl, PWideChar(Result)) then
    raise Exception.Create('Odner kann nicht ermittelt werden');
end;

function GetShellFolder(CSIDL: Integer): WideString;
var
  ppidl: PItemIdList;
begin
  ppidl := CoTaskMemAlloc(0);
  try
    case SHGetFolderLocation(0, CSIDL, 0, 0, ppidl) of
      S_OK: Result := PathFromIDList(ppidl);
      S_FALSE: raise Exception.Create('Ordner existiert nicht');
      E_INVALIDARG: raise Exception.Create('Argument ungültig');
    end;
  finally
    CoTaskMemFree(ppidl);
  end;
end;

begin
  try
    Writeln(GetShellFolder(CSIDL_LOCAL_APPDATA));
  except
    on E: Exception do
      Writeln(E.Message);
  end;
  Readln;
end.
Leider steigt er beim Aufruf von SHGetPathFromIDListW mit einer Access Violation in der shell32.dll aus, obwohl der Übergabeparamter gültig ist.

Was mache ich da noch falsch?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Popov
(Gast)

n/a Beiträge
 
#2

Re: SHGetFolderLocation

  Alt 25. Jun 2009, 00:28
Das ist es nicht, aber sollte nicht immer MAX_PATH + 1 reserviert werden?
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#3

Re: SHGetFolderLocation

  Alt 25. Jun 2009, 00:30
Wahrscheinlich müsste es sogar (MAX_PATH * 2) + 2 heißen, da ich die Unicode Version nutze.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Fridolin Walther

Registriert seit: 11. Mai 2008
Ort: Kühlungsborn
446 Beiträge
 
Delphi 2009 Professional
 
#4

Re: SHGetFolderLocation

  Alt 25. Jun 2009, 01:16
Zitat von Luckie:
Wahrscheinlich müsste es sogar (MAX_PATH * 2) + 2 heißen, da ich die Unicode Version nutze.
Nicht wirklich, weil SetLength einen WideString imho als array of WideChar interpretiert und ein WideChar 2 Byte groß ist .

Ansonsten hab ich den Fehler gefunden (http://msdn.microsoft.com/en-us/libr...80(VS.85).aspx):
Zitat:
[out] The address of a pointer to an item identifier list structure that specifies the folder's location relative to the root of the namespace (the desktop). The ppidl parameter is set to NULL on failure. The calling application is responsible for freeing this resource by calling ILFree.
Man setze also ein @ vor ppidl im SHGetFolderLocation Aufruf .
Fridolin Walther
"While Mr. Kim, by virtue of youth and naiveté, has fallen prey to the inexplicable need for human contact, let me step in and assure you that my research will go on uninterrupted, and that social relationships will continue to baffle and repulse me."
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#5

Re: SHGetFolderLocation

  Alt 25. Jun 2009, 01:49
Zitat von Fridolin Walther:
Man setze also ein @ vor ppidl im SHGetFolderLocation Aufruf .
Ich werde den Zeigern noch mal den Krieg erklären: "Ab 5:40 wird zurrrrück gezeigt!".
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Fridolin Walther

Registriert seit: 11. Mai 2008
Ort: Kühlungsborn
446 Beiträge
 
Delphi 2009 Professional
 
#6

Re: SHGetFolderLocation

  Alt 25. Jun 2009, 01:53
Wenn ich sage, daß wir selbst schuld sind, weil wir die Doku nicht aufmerksam gelesen haben, dann bekomm ich haue, oder?
Fridolin Walther
"While Mr. Kim, by virtue of youth and naiveté, has fallen prey to the inexplicable need for human contact, let me step in and assure you that my research will go on uninterrupted, and that social relationships will continue to baffle and repulse me."
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#7

Re: SHGetFolderLocation

  Alt 25. Jun 2009, 01:55
Nur ein Problem bleibt noch: Wie bekomme ich die Fragezeichen (in der Konsole) weg?

C:\Dokumente und Einstellungen\Michael\Lokale Einstellungen\Anwendungsdaten'#0'몭몭몭몭몭몭몭몭 몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭 몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭 몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭 몭몭몭몭몭몭몭몭몭'

Mit trim funktioniert es nicht. Und die Funktion MSDN-Library durchsuchenSHGetPathFromIDListW liefert wohl auch keine Informationen über die Länge des Ergebnisses.

Gelesen habe ich sie, nur dachte ich PItemIdList wäre schon der Zeiger wegen des "P"s.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Fridolin Walther

Registriert seit: 11. Mai 2008
Ort: Kühlungsborn
446 Beiträge
 
Delphi 2009 Professional
 
#8

Re: SHGetFolderLocation

  Alt 25. Jun 2009, 01:59
Delphi-Quellcode:
function PathFromIDList(Pidl: PItemIdList): WideString;
const
  NTFS_MAX_PATH = 32767;
var
  Path : PWideChar;
begin
  GetMem(Path, (NTFS_MAX_PATH + 1) * 2);
  if not SHGetPathFromIDListW(Pidl, Path) then
    begin
      FreeMem(Path);
      raise Exception.Create('Odner kann nicht ermittelt werden');
    end;
  Result := WideString(Path);
  FreeMem(Path);
end;
Wahrscheinlich wird beim SetLength nicht mit 0 initialisiert, was dafür sorgt, daß das abschließende 0-Byte fehlt. GetMem dagegen initialisiert mit 0.

Zitat von Luckie:
Gelesen habe ich sie, nur dachte ich PItemIdList wäre schon der Zeiger wegen des "P"s.
Ist ja auch ein Zeiger. Nur wird halt kein Zeiger auf eine Variable erwartet, sondern ein Zeiger auf einen Zeiger der auf eine Variable zeigt .
Fridolin Walther
"While Mr. Kim, by virtue of youth and naiveté, has fallen prey to the inexplicable need for human contact, let me step in and assure you that my research will go on uninterrupted, and that social relationships will continue to baffle and repulse me."
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#9

Re: SHGetFolderLocation

  Alt 25. Jun 2009, 02:04
Jupp, so geht es:

Delphi-Quellcode:
function PathFromIDList(Pidl: PItemIdList): WideString;
const
  NTFS_MAX_PATH = 32767;
var
  Path: PWideChar;
begin
  GetMem(Path, (NTFS_MAX_PATH + 1) * 2);
  try
    if not SHGetPathFromIDListW(Pidl, Path) then
    begin
      FreeMem(Path);
      raise Exception.Create(rsE_GetPathFromIDList);
    end;
    Result := WideString(Path);
  finally
    FreeMem(Path);
  end;
end;
Ich habe noch den Ressourcenschutzblock ergänzt.

Zitat:
Zeiger auf einen Zeiger der auf eine Variable zeigt
Gehts noch?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Fridolin Walther

Registriert seit: 11. Mai 2008
Ort: Kühlungsborn
446 Beiträge
 
Delphi 2009 Professional
 
#10

Re: SHGetFolderLocation

  Alt 25. Jun 2009, 02:08
Zitat von Luckie:
Ich habe noch den Ressourcenschutzblock ergänzt.
Der gute Robert C. Martin wird uns töten wenn er sieht wie wir hier try..except..finally mit dem Code mischen .

Zitat von Luckie:
Gehts noch?
Wenn man genauer drüber nachdenkt machts sogar Sinn .

Noch ein kleiner Hinweis:
Entfern das "ppidl := CoTaskMemAlloc(0);" noch aus dem Code. Ist nicht wirklich notwendig.
Fridolin Walther
"While Mr. Kim, by virtue of youth and naiveté, has fallen prey to the inexplicable need for human contact, let me step in and assure you that my research will go on uninterrupted, and that social relationships will continue to baffle and repulse me."
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:11 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz