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