SHGetSpecialFolderPath fehlt in meiner Shell32.dll

[Fischy]

Hi,

beim Ausführen von SHGetSpecialFolderPath bekomme ich folgende Fehlermeldung:
"Der Prozedureinstiegspunkt "SHGetSpecialFolderPathA" konnte in der Dynamic Link Libary "shell32.dll" nicht gefunden werden."

Liegt das an NT 4.0? Hat noch jemand eine andere Idee den Autostartordner vom CurrentUser ausfindig zu machen? Ich hatte überlegt das über den aktuellen Usernamen zu machen, aber das ist nicht 100% sicher. Ich möchte im Übrigen keinen Eintrag in die Registry vornehmen um das Programm beim Windowsstart zu öffnen.

Gruß und danke im Vorraus,

Fischy

[Luckie]

Zitat:

shell32.dll version 4.71 or later

Zitat:

Windows 2000, Windows NT 4.0 with Internet Explorer 4.0, Windows 98, Windows 95 with Internet Explorer 4.0

[Fischy]

Zitat:

Windows 2000, Windows NT 4.0 with Internet Explorer 4.0, Windows 98, Windows 95 with Internet Explorer 4.0

Die Vorraussetzungen erfüll ich wohl! (Das hatte ich auch schon vor meinem Post gelesen. Ich dachte aber, daß das nicht so ganz stimmt, weils eben bei mir nicht zutrifft )

Zitat:

shell32.dll version 4.71 or later

Die allerdings nicht. Meine Version ist 4.00. Das hat mich ein wenig stutzig gemacht, weshalb ich mich mal auf die Suche nach dem Grund für diesen Versionsunterschied begeben hab... Der Grund ist natürlich Microsoft :-/ Mit dem Hotfix Q313829 wird die alte Ver. der Shell32.dll wieder aufgespielt Sowas doofes, der is natürlich auf allen Rechnern auf denen das Programm laufen soll drauf.

Also Nochmal:

Zitat:

Hat noch jemand eine andere Idee den Autostartordner vom CurrentUser ausfindig zu machen? Ich hatte überlegt das über den aktuellen Usernamen zu machen, aber das ist nicht 100% sicher. Ich möchte im Übrigen keinen Eintrag in die Registry vornehmen um das Programm beim Windowsstart zu öffnen.

Gruß Fischy

[APP]

Hallo,

ob das Funkt weiß ich nicht, da ich im Moment nur XP-Home habe, aber einen Versuch ist es Wert:

Delphi-Quellcode:

PROCEDURE TForm1.Button1Click(Sender: TObject);
   FUNCTION StartUpPath: STRING;
   VAR
      FilePath                     : ARRAY[0..MAX_PATH] OF Char;
      IDL                          : PItemIDList;
   BEGIN
      Result := '';
      IF Succeeded(SHGetSpecialFolderLocation(0, CSIDL_STARTUP, IDL)) THEN
         IF SHGetPathFromIDList(IDL, FilePath) THEN
            Result := FilePath;
   END;
BEGIN
   showmessage(StartUpPath);
END;

MSDN:

Zitat:

...
SHGetSpecialFolderLocation Function


Function Information

Minimum DLL Version shell32.dll version 4.0 or later
Custom Implementation No
Header shlobj.h
Import library shell32.lib
Minimum operating systems Windows NT 4.0, Windows 95

[Fischy]

Funktioniert! Vielen Dank!

[Fischy]

Der Vollständigkeit halber einmal mit Freigabe des Speichers:

Delphi-Quellcode:

function GetAutostartPathCurrentUser : String;
var
  buffer  : Array[0..MAX_PATH+1] of Char;
  IDL     : PItemIDList;
  pMalloc : IMalloc;
begin
  result:='';
  if SHGetMalloc(pMalloc) <> NO_ERROR then exit;
  if Succeeded(SHGetSpecialFolderLocation(0, CSIDL_STARTUP, IDL)) then
    if SHGetPathFromIDList(IDL, buffer) then
      result:=buffer;
  pMalloc.Free(IDL);
end;

[Delphideppen]

ich such auch schon ne ganze zeitlang nach dieser function. ich bin leider noch ein ziehmlicher noob hab grad erst angefangen zu programmieren deshalb würde ich mich sehr freuen wenn du (App) mir die function kurz erklären könntest da wir es noch nicht geschafft haben die funktion in unser programm einzubauen.
Vielen Dank schon mal

Gruss

Amon

PS: Ich hab mich mit nem freund zusammen angemeldet wir lernen grad zusammen delphi, er kam auf den behinderten nick

[MathiasSimmack]

Es steht dir frei, dich/euch umbenennen zu lassen, wenn ihr einen passenderen Namen gefunden habt.
Ansonsten: Keine Entschuldigungen! Das ist nicht unterhalb der Grenze des guten Geschmacks.