Discussion :

[miron]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses Shlobj;

function SpecialFolder(Folder: Integer): String;
var
  SFolder : pItemIDList;
  SpecialPath : Array[0..MAX_PATH] Of Char;
begin
  SHGetSpecialFolderLocation(Form.Handle, Folder, SFolder);
  SHGetPathFromIDList(SFolder, SpecialPath);
  Result := StrPas(SpecialPath);
end;

{ Application : }
procedure TForm.MyButtonClick(Sender: TObject);
begin
  MyLabel.Caption := SpecialFolder(CSIDL_PERSONAL);
end;

Si qqn peut me traduire cela en C.
Oumexpliquer les paralettres,etc...
Merci

[Franck.H]

Inutile de faire un double post, ca ira pas plus vite

[Swoög]

ç'a l'air d'être du Pascal ou du Delphi...

même sans en avoir jamais fait tu devrais pouvoir en extraire les principales commandes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
const char* SpecialFolder(int Folder)
{
   pItemIDList SFolder;
   char SFolder[MAX_PATH];
   SHGetSpecialFolderLocation(Form.Handle, Folder, SFolder);
   SHGetPathFromIDList(SFolder, SpecialPath);
   return StrPas(SpecialPath);
}

void TForm::MyButtonClick(const TObject& sender)
{
  MyLabel.Caption = SpecialFolder(CSIDL_PERSONAL);
}

Bien entedu, extirpé de tout contexte, il y a énormément peu de chances que ça compile (en l'état actuel c'est d'ailleur totalement impossible)

tu devrais te documenter sur le forum Delphi pour les fonctions que tu ne connais pas (ou mieux, lire la doc...)

[miron]

ç'a l'air d'être du Pascal ou du Delphi...

même sans en avoir jamais fait tu devrais pouvoir en extraire les principales commandes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
const char* SpecialFolder(int Folder)
{
   pItemIDList SFolder;
   char SFolder[MAX_PATH];
   SHGetSpecialFolderLocation(Form.Handle, Folder, SFolder);
   SHGetPathFromIDList(SFolder, SpecialPath);
   return StrPas(SpecialPath);
}

void TForm::MyButtonClick(const TObject& sender)
{
  MyLabel.Caption = SpecialFolder(CSIDL_PERSONAL);
}

Bien entedu, extirpé de tout contexte, il y a énormément peu de chances que ça compile (en l'état actuel c'est d'ailleur totalement impossible)

tu devrais te documenter sur le forum Delphi pour les fonctions que tu ne connais pas (ou mieux, lire la doc...)

Ce code vien faq delphi , comment trouver l'emplacement de repertoires (Bureau) par ex.

[Franck.H]

Voilà voilà, minute papillon, j'ai aussi dû chercher et étudier comment on utilise tout ca en C ... la preuve que c'est possible en cherchant un peu et surtout en connaissant un peu l'anglais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include <stdio.h>
#include <windows.h>
#include <shlobj.h>


int main (void)
{
   ITEMIDLIST * itemDList;
   char s_path [BUFSIZ];


   SHGetSpecialFolderLocation (NULL, CSIDL_DESKTOPDIRECTORY, & itemDList);
   SHGetPathFromIDList        (itemDList, s_path);


   printf ("Chemin vers le bureau :\n%s\n", s_path);
   free (itemDList);


   return EXIT_SUCCESS;
}

[miron]

Voilà voilà, minute papillon, j'ai aussi dû chercher et étudier comment on utilise tout ca en C ... la preuve que c'est possible en cherchant un peu et surtout en connaissant un peu l'anglais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include <stdio.h>
#include <windows.h>
#include <shlobj.h>


int main (void)
{
   ITEMIDLIST * itemDList;
   char s_path [BUFSIZ];


   SHGetSpecialFolderLocation (NULL, CSIDL_DESKTOPDIRECTORY, & itemDList);
   SHGetPathFromIDList        (itemDList, s_path);


   printf ("Chemin vers le bureau :\n%s\n", s_path);
   free (itemDList);


   return EXIT_SUCCESS;
}

return EXIT? a quoi cela sert?
etle free?
Merci je pensse que ca va m'aider(j'en suis mm sur)Merci

[Franck.H]

return EXIT? a quoi cela sert?
etle free?
Merci je pensse que ca va m'aider(j'en suis mm sur)Merci

Le free sert du fait que le pointeur sur la structure de type ITEMIDLIST est alloué dynamiquement par la fonction SHGetSpecialFolderLocation.

Le return EXIT_SUCCESS; est une manière portable de mettre fin au programme, en générale la valeur passée est 0 mais il peut arriver que cela change suivant la plateforme ! C'est une habitude que j'ai pris au fil du temps mais tu peux mettre 0 sans problème !

[miron]

Serait'il possible d'ajouter "Lancer l'ordinateur de bord.exe" par exemple a s_path?