FAQ C++ BuilderConsultez toutes les FAQ

1
2
3
#include <stdlib.h> 
//... 
system("dir *.*");

1
2
3
4
5
6
7
8
9
#include <stdlib.h> 
  
// Version DOS/Windows : 
system("dir *.* > results.txt"); 
  
// Version Linux : 
/* L'option -l permet d'avoir les détails 
   des fichiers                           */ 
system("ls -l > results");

1
2
3
4
5
6
7
ShellExecute(NULL,  // Handle de la fenêtre parent 
                 "open", // Action à effectuer 
                 "notepad.exe", // Fichier 
                 "", // Paramètres 
                 "", // Répertoire par défaut 
                 SW_SHOWDEFAULT // Manière d'afficher 
                 );

1
2
3
4
5
6
7
8
9
10
11
// Affiche une boîte de dialogue "Ouvrir un fichier" et ouvre le fichier avec notepad. 
if (OpenDialog1->Execute()) 
{ 
  ShellExecute(NULL,  // Handle de la fenêtre parent 
                   "open", // Action à effectuer 
                   "notepad.exe", // Fichier 
                   OpenDialog1->FileName.c_str(), // Paramètres 
                   ExtractFilePath(OpenDialog1->FileName).c_str(), // Répertoire par défaut 
                   SW_SHOW // Manière d'afficher 
                   ); 
}

1
2
if ( ParamCount() > 0 ) 
    Memo1->Lines->LoadFromFile(ParamStr(1));

ShowMessage("Tâche effectuée");

MessageDlg("La tâche a été effectuée correctement", mtInformation, TMsgDlgButtons() << mbOK, 0);

1
2
3
if (MessageDlg("Le document n'a pas été sauvegardé, voulez-vous le sauvegarder avant de quitter ?",  
     mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes) 
    Sauver();

1
2
3
4
5
6
7
8
9
10
11
12
//... 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm1 *Form1; 
bool Stop; /* Placez la variable ici */ 
//--------------------------------------------------------------------------- 
__fastcall TForm1::TForm1(TComponent* Owner) 
    : TForm(Owner) 
{ 
//... 
}

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
void __fastcall TForm1::Button1Click(TObject *Sender) 
{ 
  static int x_inc = 1; // Incrémentation d'abscisse 
  static int y_inc = 1; // Incrémentation d'ordonnée 
  static int X = 10;    // Position initiale (abscisse) 
  static int Y = 10;    // Position initiale (ordonnée) 
  
  Stop = false;     // La boucle est activée. 
  /* Le seul moyen d'arrêter la boucle est  
     de positionner la variable Stop à true */ 
  while(!Stop) 
  { 
    Canvas->MoveTo(X, Y); // Placement du pinceau en (X, Y) 
    X += x_inc;       // Incrémentation des positions 
    Y += y_inc; 
    // Change la couleur de la ligne aléatoirement 
    Canvas->Pen->Color = RGB(rand()%255, rand()%255, rand()%255); 
    Canvas->LineTo(X, Y); // Ligne jusqu'à la nouvelle position 
  
    /* Si la position du pinceau sort de la zone cliente  
    de la fenêtre, on inverse les incrémentations, ce qui donne 
    l'effet de "rebond" */ 
    if (X > ClientWidth || X < 0) x_inc = -x_inc; 
    if (Y > ClientHeight || Y < 0) y_inc = -y_inc; 
  
    /* L'appel à cette méthode évite le blocage de l'application :  
       les messages et clics sur autres boutons sont traités */  
    Application->ProcessMessages(); 
  } 
}

1
2
3
4
void __fastcall TForm1::Button2Click(TObject *Sender) 
{ 
  Stop = true; 
}

1
2
// Pause d'une seconde : 
Sleep(1000);