Discussion :

[Drooxy]

Bonsoir,

Il y a dans ce qui suit, quelquechose que je ne comprends pas, illustré par 2 cas qui me semblent contradictoires:

1. Cas de l'API CreateProcess:

1a. Déclaration de TStartUpInfo dans windows.pas:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
type
  PStartupInfo = ^TStartupInfo;
  _STARTUPINFOA = record
    cb: DWORD;
    lpReserved: Pointer;
    ...;
  end;
  {$EXTERNALSYM _STARTUPINFOA}
  TStartupInfo = _STARTUPINFOA;
  STARTUPINFO = _STARTUPINFOA;
  {$EXTERNALSYM STARTUPINFO}

1b. La compilation du code suivant est OK:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure TForm1.Button2Click(Sender: TObject);
var
  sinfo:TStartUpInfo;
  pinfo:TProcessInformation;
begin
  CreateProcess ('C:\winnt\calc.exe',
                 NIL,
                 NIL,
                 NIL,
                 False,
                 0,
                 NIL,
                 NIL,
                 sinfo,
                 pinfo);
end;

=> Comment se fait-il que sinfo soit accepté alors qu'un pointeur sur
sinfo est normalement attendu en 8ème paramètre ? (sinfo est de
type TStartupInfo, pas PStartupInfo ! Idem au passage pour pinfo !)

2. Cas de l'API CreateFile:

2a. Déclaration de TSecurityAttributes dans windows.pas:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
type
  PSecurityAttributes = ^TSecurityAttributes;
  _SECURITY_ATTRIBUTES = record
    nLength: DWORD;
    lpSecurityDescriptor: Pointer;
    bInheritHandle: BOOL;
  end;
  {$EXTERNALSYM _SECURITY_ATTRIBUTES}
  TSecurityAttributes = _SECURITY_ATTRIBUTES;
  SECURITY_ATTRIBUTES = _SECURITY_ATTRIBUTES;
  {$EXTERNALSYM SECURITY_ATTRIBUTES}

2b. La compilation du code suivant n' est pas OK ([Error] Unit3.pas
(36): Incompatible types: '_SECURITY_ATTRIBUTES'
and 'PSecurityAttributes'):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Security_Attributes:TSecurityAttributes;
begin
 
  CreateFile ('C:\Temp',
               0,
               0,
               Security_Attributes,
               0,
               0,
               0);
 
end;

=> A priori, on utilise là aussi un type TSecurityAttributes alors qu'un
pointeur (PSecurityAttributes) est attendu... on est donc dans le
même cas que précédemment mais cette dois le compilateur râle... à
mon avis à juste titre !

Mon étonnement me paraîtra stupide une fois que j'aurai compris... en attendant, c'est probablement vous qui le trouvez stupide !

Merci d'avoir la gentillesse de ne pas vous moquer et de m'aider à comprendre !

Merci d'avance,
Drooxy

[Pierre Castelain]

La réponse est très, très simple. Il te suffit de regarder la déclaration de CreateProcess dans l'unité Windows:

Code :

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

1
2
3
4
5
6
 
function CreateProcess(lpApplicationName: PChar; lpCommandLine: PChar;
  lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
  bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer;
  lpCurrentDirectory: PChar; const lpStartupInfo: TStartupInfo;
  var lpProcessInformation: TProcessInformation): BOOL; stdcall;

Il faut se méfier, les déclarations Delphi sont parfois légèrement différentes de celles du SDK. C'est généralement pour gagner en confort d'utilisation. Donc ça va dans le bon sens. Personnellement, j'ai pris l'habitude de toujours regarder la déclaration Delphi avant d'utiliser une API que je n'utilise pas souvent.

[Drooxy]

Merci pour ta réponse rapide et très claire !

Qu'est-ce qui rend possible ces changements de types dans les déclarations de windows.pas ? Le CreateProcess tel qu'utilisé dans Delphi n'est-il pas strictement le CreateProcess de l'API windows ?

Merci d'avance !
Drooxy

[Pierre Castelain]

Si tu regarde bien la déclaration tu t'apercevra que le mot var précède l'argument en question. Ce mot-clé signifie que l'argument sera passé par référence afin (en théorie) que la fonction puisse le modifier. Et passer une variable par référence revient à passer son adresse, c'est donc équivalent à l'utilisation du pointeur. CQFD.
N'hésite pas à jetter un coup d'oeil au manuel du Pascal objet pour obtenir de plus amples informations.

[Drooxy]

cqfd effectivement !

Merci infiniment pour ton aide.
Drooxy