Discussion :

[fabpan]

Bonjour j'utilise la fonction GetDriveType du kernerl32 pour savoir quel est le type de drive que l'utilisateur à choisi.

Malheureusement cette fonction me donne une message d'erreur EStackOverFlow à chaque fois que je choisi un drive.

Voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Function GetDriveType(RootPathName:string):integer;
var
  lpRootPathName: array [0..4] of char;
begin         //LPCTSTR
  StrPCopy(lpRootPathName,RootPathName);
  result:=GetDriveType(lpRootPathName);
end;
 
// Voici comment j'appelle cette fonction à un moment donné
if (sEmplacementchoisi<>'') then
    GetDriveType(sEmplacementchoisi);

Merci d'avance pour votre aide

[Andnotor]

Normal, ta procédure GetDriveType s'appelle elle-même !

Supprime-la et ne fait appel qu'à l'API:

Code :

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

GetDriveType(PChar(sEmplacementchoisi));

[fabpan]

Salut et merci pour ton aide.


Oui en effet cette fonction est mal faite et je ne trouvais pas car je ne suis pas l'auteur de celle-ci.

Pour l'Api pourrais-tu me dire comment faire car je débute en Delphi et je ne sais pas trop comment commencer.


Merci

[Andnotor]

Ca se résume à la ligne ci-dessus.

[fabpan]

Ok merci

Je viens de tester et ça marche.


Merci beaucoup pour ton aide.