Erreur estackoverflow sur api GetDriveType

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:

---

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

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

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

Code:

---

GetDriveType(PChar(sEmplacementchoisi));

---

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

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

Ok merci

Je viens de tester et ça marche.


Merci beaucoup pour ton aide.