Discussion :

[PHILOSOPHE]

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

[genteur slayer]

t'as pas chercher du coté base de registre?

[carreaus]

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

MSDN:
CSIDL_COMMON_STARTUP
The file system directory that contains the programs that appear in the Startup folder for all users. A typical path is C:\Documents and Settings\All Users\Start Menu\Programs\Startup. Valid only for Windows NT systems.

Tu entends quoi par "répertoire de démarrage" ? Le dossier de démarrage de ton appli ?

[PHILOSOPHE]

J'entends "Répertoire du menu démarrer commun à tous les utilisateurs".

Et bien alors, à ce que je vois je ne suis pas le seul à ne pas savoir....

[carreaus]

J'entends "Répertoire du menu démarrer commun à tous les utilisateurs".

Et bien alors, à ce que je vois je ne suis pas le seul à ne pas savoir....

Je ne me rappelle plus si on peut affiner l'installation d'un programme sous Win98, en indiquant si l'on veut qu'il ne soit installé que pour l'utilisateur ou pour tous les utilisateurs du poste ...

Tu peux toujours utiliser appeler la fonction avec CSIDL_STARTMENU dans le cas où ton programme détecte qu'il ne s'exécute pas sur un Windows à noyau NT.

[TMuet]

Il existe dans la JVCL un composant qui retourne ce dossier (et beuacoup d'autres encore).
Il doit s'appeler TJvDirectories (ou un truc comme ça).
Bon courage

[Nono40]

Ton code fonctionne bien avec Windows Me ( très proche de W98 ).

Essaye ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
var
  hHandle : integer;
  SpecialPath : Array[0..MAX_PATH] Of Char;
begin
  SHGetSpecialFolderPath(hHandle,SpecialPath, CSIDL_COMMON_STARTUP,False);
  ShowMessage(SpecialPath);
end;