FAQ C++ BuilderConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
AnsiString RepertoireWindows() 
{ 
  AnsiString result = ""; 
  UINT buflength; 
  char *repertoire = new char[MAX_PATH]; 
  buflength = GetWindowsDirectory(repertoire,MAX_PATH); 
  if (buflength == 0) 
  { 
    delete[] repertoire; 
    return result; 
  } 
  else if (buflength > MAX_PATH) 
  { 
    delete[] repertoire; 
    repertoire = new char[buflength]; 
    GetWindowsDirectory(repertoire,buflength); 
  } 
  result = repertoire; 
  delete[] repertoire; 
  return result; 
}

1
2
3
4
AnsiString RepertoireWindows() 
{ 
  getenv("WINDIR"); 
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
AnsiString RepertoireSystemeWindows() 
{ 
  AnsiString result = ""; 
  UINT buflength; 
  char *repertoire = new char[MAX_PATH]; 
  buflength = GetSystemDirectory(repertoire,MAX_PATH); 
  if (buflength == 0) 
  { 
    delete[] repertoire; 
    return result; 
  } 
  else if (buflength > MAX_PATH) 
  { 
    delete[] repertoire; 
    repertoire = new char[buflength]; 
    GetSystemDirectory(repertoire,buflength); 
  } 
  result = repertoire; 
  delete[] repertoire; 
  return result; 
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
AnsiString RepertoireTemporaire() 
{ 
  AnsiString result = ""; 
  UINT buflength; 
  char *repertoire = new char[MAX_PATH]; 
  buflength = GetTempPath(MAX_PATH, repertoire); 
  if (buflength == 0) 
  { 
    delete[] repertoire; 
    return result; 
  } 
  else if (buflength > MAX_PATH) 
  { 
    delete[] repertoire; 
    repertoire = new char[buflength]; 
    GetTempPath(buflength, repertoire); 
  } 
  result = repertoire; 
  delete[] repertoire; 
  return result; 
}

ChargerConfiguration("options.ini");

AnsiString RepertoireApplication = ExtractFilePath(Application->ExeName);

ChargerConfiguration(ExtractFilePath(Application->ExeName)+"options.ini");

1
2
3
4
5
6
7
8
9
10
11
#include <FileCtrl.hpp> 
// ... 
AnsiString Directory; 
if (SelectDirectory("Sélectionnez le répertoire de copie", "c:\\", Directory)) 
{ 
    ShowMessage("Vous avez choisi : "+Directory); 
} 
else 
{ 
    ShowMessage("Vous avez annulé"); 
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
//--------------------------------------------------------------------------- 
#define NO_WIN32_LEAN_AND_MEAN  // à mettre avant '#include <vcl.h>' 
#include <vcl.h> 
#pragma hdrstop 
#include <shlobj.h>           
  
#include "Unit1.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm1 *Form1; 
  
//--------------------------------------------------------------------------- 
// Fonction Globale 
//--------------------------------------------------------------------------- 
int __stdcall BrowseCallbackProc(HWND hwnd, UINT uMsg, LPARAM lParam, LPARAM lpData) 
{  // Permet de centrer la boite à l'ecran 
    TRect rect; 
    GetWindowRect(hwnd, &rect); 
  
    MoveWindow( 
        hwnd, 
        ( Screen->Width - rect.Width() ) /2, // centré en x 
        ( Screen->Height - rect.Height() ) /2, 
        rect.Width(), 
        rect.Height(), 
        true 
    ); 
    return 1; 
} 
  
  
//--------------------------------------------------------------------------- 
__fastcall TForm1::TForm1(TComponent* Owner) 
   : TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
String __fastcall TForm1::SelectDossier( String Titre ) 
{ 
    char Path[MAX_PATH]; 
    char BufferDisplayName[MAX_PATH]; 
  
    PItemIDList IDRoot; 
    SHGetSpecialFolderLocation(Handle, CSIDL_NETWORK, &IDRoot); 
  
    TBrowseInfo BrowseInfo; 
    ZeroMemory(&BrowseInfo, sizeof(TBrowseInfo)); 
    BrowseInfo.hwndOwner       = Handle; 
    BrowseInfo.pszDisplayName  = BufferDisplayName; 
    BrowseInfo.lpszTitle       = Titre.c_str(); 
    BrowseInfo.ulFlags         = BIF_DONTGOBELOWDOMAIN | BIF_RETURNONLYFSDIRS | BIF_RETURNFSANCESTORS; 
    BrowseInfo.lpfn            = BrowseCallbackProc; 
  
    PItemIDList PList          = SHBrowseForFolder(&BrowseInfo); 
  
    if (PList){ 
        SHGetPathFromIDList(PList, Path); 
        return (String)Path; 
    } 
    else return ""; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button1Click(TObject *Sender) 
{ 
    String PathSelect  = SelectDossier( "Veuillez-sélectionner le dossier source :" ); 
} 
//---------------------------------------------------------------------------

1
2
3
4
5
6
7
8
if (CreateDirectory(Repertoire.c_str(), 0)) 
{ 
    // Le répertoire a été créé 
} 
else 
{ 
    // Le répertoire n'a pas été créé 
}

1
2
3
4
5
6
7
8
9
10
#include <FileCtrl.hpp> 
//... 
if (ForceDirectories(Chemin) 
{ 
   // Le chemin a été créé 
} 
else 
{ 
   // Le chemin n'a pas été créé 
}

1
2
3
4
5
#include <FileCtrl.hpp> 
if (DirectoryExists(Repertoire)) 
{ 
  //... 
}

BOOL MoveFile(LPCTSTR lpExistingFileName, LPCTSTR lpNewFileName);

1
2
3
4
5
6
7
8
9
AnsiString  OldPath = "C:\\Test\\", NewPath = "C:\\Temp\\Test\\"; 
if(MoveFile(OldPath.c_str(), NewPath.c_str()) == true) 
{ 
   //Réperoire déplacé avec succès 
} 
else 
{ 
   //Problème 
}

bool __fastcall RenameFile(const AnsiString OldName, const AnsiString NewName);

1
2
3
4
5
6
7
8
9
AnsiString  OldName = "C:\\Ancien\\", NewName = "C:\\Nouveau\\"; 
if(RenameFile(OldName, NewName) == true) 
{ 
    //Réperoire renommé avec succès 
} 
else 
{ 
    //Problème 
}

1
2
bool __fastcall RemoveDir(const AnsiString Dir); 
BOOL RemoveDirectory(LPCTSTR lpPathName);

1
2
AnsiString MyPath = "C:\\Temp\\"; 
RemoveDir(MyPath);

1
2
3
4
5
6
7
8
9
10
#include "ShellApi.h" 
-------------------------------------------------------------------- 
SHFILEOPSTRUCT stFileOp; 
ZeroMemory(&stFileOp, sizeof(stFileOp)); 
stFileOp.wFunc = FO_DELETE; 
stFileOp.fFlags = FOF_SILENT | FOF_NOCONFIRMATION; 
stFileOp.hwnd = Application->Handle; 
stFileOp.pFrom = "C:\\Temp\0"; 
  
SHFileOperation(&stFileOp);

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
void __fastcall DeleteRecursif(AnsiString pmRep) 
{ 
   TSearchRec SearchRec; 
   int Attributes = 0; 
   AnsiString bcRep = "", 
              bcRepTemp = "", 
              bcFile = ""; 
  
   Attributes |= faAnyFile; 
   bcRep = pmRep; 
   if(bcRep[bcRep.Length()] != '\\') 
   { 
      bcRep+= "\\"; 
   } 
   bcRepTemp = bcRep; 
   bcRep+= "*.*";      
   if(FindFirst(bcRep, Attributes, SearchRec) == 0) 
   { 
      do 
      { 
         bcFile = SearchRec.Name; 
         if(bcFile != "." && bcFile != "..") 
         { 
            bcFile = bcRepTemp + SearchRec.Name; 
            if(SearchRec.Attr != faDirectory) 
            { 
               DeleteFile(bcFile); 
            } 
            else 
            { 
               DeleteRecursif(bcFile); 
            } 
         } 
      } 
      while (FindNext(SearchRec) == 0); 
      FindClose(SearchRec); 
   } 
   RemoveDir(pmRep); 
}

DeleteRecursif("C:\\Temp\\");

1
2
3
4
5
6
7
8
9
10
11
12
13
14
TSearchRec SR; 
String NomRepertoire = "C:\\jeux"; 
TDateTime DT; 
  
if (!FindFirst(NomRepertoire, faDirectory, SR)) 
{ 
   // on convertit le marqueur horaire système du répertoire en une date classique 
   DT = FileDateToDateTime(SR.Time); 
   ShowMessage(DT); 
} 
else 
{ 
   ShowMessage("répertoire inexistant"); 
}

1
2
#define NO_WIN32_LEAN_AND_MEAN 
#include <vcl.h>

1
2
private:// Déclarations de l'utilisateur 
String __fastcall CheminSpecialFolder(int TypeFolder);

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
String __fastcall TForm::CheminSpecialFolder(int TypeFolder) 
{ 
    String Result = ""; 
    // 
    char sPath[MAX_PATH]; 
    _ITEMIDLIST *AIdList; 
    // 
    try 
    { 
        SHGetSpecialFolderLocation(Application->Handle, TypeFolder, &AIdList); 
        SHGetPathFromIDList(AIdList, sPath); 
        Result = sPath; 
    } 
    catch(...) 
    { 
        //gérer les erreurs relevées... 
    } 
    // 
    return Result; 
}

1
2
3
4
void __fastcall TForm::ButtonClick(TObject *Sender) 
{ 
ShowMessage(CheminSpecialFolder(CSIDL_COMMON_DESKTOPDIRECTORY)); 
}

1
2
AnsiString TempPath; 
GetTempPath(200,TempPath.c_str());

1
2
3
4
5
6
String __fastcall TForm1::Path_LongToCourt( String Path_Long ) 
{ 
   char PathCourt[MAX_PATH]; 
   GetShortPathName(Path_Long.c_str(), PathCourt, MAX_PATH); 
   return (String)PathCourt; 
}