J'utilise la portion de code suivante pour retrouver le répertoire de démarrage. Cette portion de code fonctionne sous NT, 2000 et XP mais pas sous Windows 98. Comment je peux faire pour retrouver ce répertoire et pourquoi cela ne fonctionne pas sous 98?

Le code est le suivant : (il m'affiche une chaîne vide sous 98 sinon sous NT, 2000, XP le chemin du répertoire Démarrage)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
uses shlobj;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  hHandle : integer;
  SFolder : pItemIDList;
  SpecialPath : Array[0..255] Of Char;
begin
  SHGetSpecialFolderLocation(hHandle, CSIDL_COMMON_STARTUP, SFolder);
  SHGetPathFromIDList(SFolder, SpecialPath);
  ShowMessage(SpecialPath);
end;
Merci de m'aider