Win32MajorVersion avec Delphi 7

**BuzzLeclaire** · 22/01/2012, 11h38

Salut la compagnie et les retraités...

J'ai essayé de relire tout le topic, et je ne crois pas avoir vu cela, enfin de cette manière on va dire.

J'ai également fais des recherche sur ce windows

et les verisons associées, après avoir testé une tonne de chose, j'utilise uniquement cette procédure.

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
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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
function GetWindowsVersion: string;
type
  TGNSI = procedure(var lpSystemInfo: TSystemInfo); stdcall;
  TGPI = function(dwOSMajorVersion, dwOSMinorVersion, dwSpMajorVersion, dwSpMinorVersion: DWORD; var pdwReturnedProductType: DWORD): BOOL; stdcall;
 
  _OSVERSIONINFOEX = record
    dwOSVersionInfoSize: DWORD;
    dwMajorVersion: DWORD;
    dwMinorVersion: DWORD;
    dwBuildNumber: DWORD;
    dwPlatformId: DWORD;
    szCSDVersion: array[0..127] of AnsiChar;
    wServicePackMajor: WORD;
    wServicePackMinor: WORD;
    wSuiteMask: WORD;
    wProductType: BYTE;
    wReserved: BYTE;
  end;
 
const
  // wSuiteMask
  VER_SUITE_SMALLBUSINESS = $1;
  VER_SUITE_ENTERPRISE = $2;
  VER_SUITE_BACKOFFICE = $4;
  VER_SUITE_COMMUNICATIONS = $8;
  VER_SUITE_TERMINAL = $10;
  VER_SUITE_SMALLBUSINESS_RESTRICTED = $20;
  VER_SUITE_EMBEDDEDNT = $40;
  VER_SUITE_DATACENTER = $80;
  VER_SUITE_SINGLEUSERTS = $100;
  VER_SUITE_PERSONAL = $200;
  VER_SUITE_BLADE = $400;
  VER_SUITE_WH_SERVER = $800;
  VER_SUITE_STORAGE_SERVER = $2000;
  VER_SUITE_COMPUTE_SERVER = $4000;
  // wProductType
  VER_NT_WORKSTATION = $1;
  VER_NT_DOMAIN_CONTROLLER = $2;
  VER_NT_SERVER = $3;
 
  PRODUCT_BUSINESS = $6; // Business
  PRODUCT_BUSINESS_N = $10; // Business N
  PRODUCT_CLUSTER_SERVER = $12; // HPC Edition
  PRODUCT_DATACENTER_SERVER = $8; // Server Datacenter (full installation)
  PRODUCT_DATACENTER_SERVER_CORE = $C; // Server Datacenter (core installation)
  PRODUCT_DATACENTER_SERVER_CORE_V = $27; // Server Datacenter without Hyper-V (core installation)
  PRODUCT_DATACENTER_SERVER_V = $25; // Server Datacenter without Hyper-V (full installation)
  PRODUCT_ENTERPRISE = $4; // Enterprise
  PRODUCT_ENTERPRISE_N = $1B; // Enterprise N
  PRODUCT_ENTERPRISE_SERVER = $A; // Server Enterprise (full installation)
  PRODUCT_ENTERPRISE_SERVER_CORE = $E; // Server Enterprise (core installation)
  PRODUCT_ENTERPRISE_SERVER_CORE_V = $29; // Server Enterprise without Hyper-V (core installation)
  PRODUCT_ENTERPRISE_SERVER_IA64 = $F; // Server Enterprise for Itanium-based Systems
  PRODUCT_ENTERPRISE_SERVER_V = $26; // Server Enterprise without Hyper-V (full installation)
  PRODUCT_HOME_BASIC = $2; // Home Basic
  PRODUCT_HOME_BASIC_N = $5; // Home Basic N
  PRODUCT_HOME_PREMIUM = $3; // Home Premium
  PRODUCT_HOME_PREMIUM_N = $1A; // Home Premium N
  PRODUCT_HYPERV = $2A; // Server Hyper-V
  PRODUCT_MEDIUMBUSINESS_SERVER_MANAGEMENT = $1E; // Windows Essential Business Server Management Server
  PRODUCT_MEDIUMBUSINESS_SERVER_MESSAGING = $20; // Windows Essential Business Server Messaging Server
  PRODUCT_MEDIUMBUSINESS_SERVER_SECURITY = $1F; // Windows Essential Business Server Security Server
  PRODUCT_SERVER_FOR_SMALLBUSINESS = $18; // Windows Server 2008 for Windows Essential Server Solutions
  PRODUCT_SERVER_FOR_SMALLBUSINESS_V = $23; // Windows Server 2008 without Hyper-V for Windows Essential Server Solutions
  PRODUCT_SMALLBUSINESS_SERVER = $9; // Windows Small Business Server
  PRODUCT_SMALLBUSINESS_SERVER_PREMIUM = $19;
  PRODUCT_STANDARD_SERVER = $7; // Server Standard (full installation)
  PRODUCT_STANDARD_SERVER_CORE = $D; // Server Standard (core installation)
  PRODUCT_STANDARD_SERVER_CORE_V = $28; // Server Standard without Hyper-V (core installation)
  PRODUCT_STANDARD_SERVER_V = $24; // Server Standard without Hyper-V (full installation)
  PRODUCT_STARTER = $B; // Starter
  PRODUCT_STORAGE_ENTERPRISE_SERVER = $17; // Storage Server Enterprise
  PRODUCT_STORAGE_EXPRESS_SERVER = $14; // Storage Server Express
  PRODUCT_STORAGE_STANDARD_SERVER = $15; // Storage Server Standard
  PRODUCT_STORAGE_WORKGROUP_SERVER = $16; // Storage Server Workgroup
  PRODUCT_UNDEFINED = $0; // An unknown product
  PRODUCT_ULTIMATE = $1; // Ultimate
  PRODUCT_ULTIMATE_N = $1C; // Ultimate N
  PRODUCT_WEB_SERVER = $11; // Web Server (full installation)
  PRODUCT_WEB_SERVER_CORE = $1D; // Web Server (core installation)
 
  SM_SERVERR2 = 89;
  PROCESSOR_ARCHITECTURE_INTEL = 0;
  PROCESSOR_ARCHITECTURE_IA64 = 6;
  PROCESSOR_ARCHITECTURE_AMD64 = 9;
 
  BUFSIZE = 80;
var
  OSVERSIONINFOEX: _OSVERSIONINFOEX;
  OSVERSIONINFO: _OSVERSIONINFO absolute OSVERSIONINFOEX;
  si: SYSTEM_INFO;
  pGNSI: TGNSI;
  pGPI: TGPI;
  bOsVersionInfoEx: Boolean;
  hdlKey: HKEY;
  lRet: LONGINT;
  szProductType: array[0..Pred(BUFSIZE)] of Char;
  dwBufLen, dwType: DWORD;
begin
  Result := '';
  // Try calling GetVersionEx using the OSVERSIONINFOEX structure.
  // If that fails, try using the OSVERSIONINFO structure.
  ZeroMemory(@si, sizeof(SYSTEM_INFO));
  ZeroMemory(@OSVERSIONINFO, sizeof(_OSVERSIONINFOEX));
  OSVERSIONINFO.dwOSVersionInfoSize := sizeof(_OSVERSIONINFOEX);
  bOsVersionInfoEx := GetVersionEx(OSVERSIONINFO);
  if not bOsVersionInfoEx then
  begin
    OSVERSIONINFO.dwOSVersionInfoSize := sizeof(_OSVERSIONINFO);
    if not GetVersionEx(OSVERSIONINFO) then Exit;
  end;
 
  // Call GetNativeSystemInfo if supported or GetSystemInfo otherwise.
  pGNSI := GetProcAddress(GetModuleHandle('kernel32.dll'), 'GetNativeSystemInfo');
  if Assigned(pGNSI) then
    pGNSI(si)
  else
    GetSystemInfo(si);
 
  case OSVERSIONINFO.dwPlatformId of
    // Test for the Windows NT product family.
    VER_PLATFORM_WIN32_NT:
      begin
        // Test for the specific product family.
        Result := 'Unknown Windows';
        if (OSVERSIONINFO.dwMajorVersion = 6) then
        begin
          case OSVERSIONINFO.dwMinorVersion of
            0:
            begin
              if (OSVERSIONINFOEX.wProductType = VER_NT_WORKSTATION) then
                Result := 'Windows Vista'
              else
                Result := 'Windows Server 2008';
            end;
            1: Result := 'Windows Seven'
          end;
 
          pGPI := GetProcAddress(GetModuleHandle('kernel32.dll'), 'GetProductInfo');
          pGPI(6, 0, 0, 0, dwType);
 
          case dwType of
            PRODUCT_ULTIMATE: Result := Result + ' Ultimate Edition';
            PRODUCT_HOME_PREMIUM: Result := Result + ' Home Premium Edition';
            PRODUCT_HOME_BASIC: Result := Result + ' Home Basic Edition';
            PRODUCT_ENTERPRISE: Result := Result + ' Enterprise Edition';
            PRODUCT_BUSINESS: Result := Result + ' Business Edition';
            PRODUCT_STARTER: Result := Result + ' Starter Edition';
            PRODUCT_CLUSTER_SERVER: Result := Result + ' Cluster Server Edition';
            PRODUCT_DATACENTER_SERVER: Result := Result + ' Datacenter Edition';
            PRODUCT_DATACENTER_SERVER_CORE: Result := Result + ' Datacenter Edition (core installation)';
            PRODUCT_ENTERPRISE_SERVER: Result := Result + ' Enterprise Edition';
            PRODUCT_ENTERPRISE_SERVER_CORE: Result := Result + ' Enterprise Edition (core installation)';
            PRODUCT_ENTERPRISE_SERVER_IA64: Result := Result + ' Enterprise Edition for Itanium-based Systems';
            PRODUCT_SMALLBUSINESS_SERVER: Result := Result + ' Small Business Server';
            PRODUCT_SMALLBUSINESS_SERVER_PREMIUM: Result := Result + ' Small Business Server Premium Edition';
            PRODUCT_STANDARD_SERVER: Result := Result + ' Standard Edition';
            PRODUCT_STANDARD_SERVER_CORE: Result := Result + ' Standard Edition (core installation)';
            PRODUCT_WEB_SERVER: Result := Result + ' Web Server Edition';
          end;
 
          if (si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64) then
            Result := Result + ', 64-bit'
          else if (si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_INTEL) then
            Result := Result + ', 32-bit';
        end;
        if (OSVERSIONINFO.dwMajorVersion = 5) and (OSVERSIONINFO.dwMinorVersion = 2) then
        begin
          if (GetSystemMetrics(SM_SERVERR2) <> 0) then
            Result := 'Windows Server 2003 R2, '
          else if (OSVERSIONINFOEX.wSuiteMask = VER_SUITE_STORAGE_SERVER) then
            Result := 'Windows Storage Server 2003'
          else if (OSVERSIONINFOEX.wSuiteMask = VER_SUITE_WH_SERVER) then
            Result := 'Windows Home Server'
          else if (OSVERSIONINFOEX.wProductType = VER_NT_WORKSTATION) and (
            si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64) then
            Result := 'Windows XP Professional x64 Edition'
          else
            Result := 'Windows Server 2003, ';
 
          // Test for the server type.
          if (OSVERSIONINFOEX.wProductType <> VER_NT_WORKSTATION) then
          begin
            if (si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_IA64) then
            begin
              if (OSVERSIONINFOEX.wSuiteMask and VER_SUITE_DATACENTER) <> 0 then
                Result := Result + ' Datacenter Edition for Itanium-based Systems'
              else if (OSVERSIONINFOEX.wSuiteMask and VER_SUITE_ENTERPRISE) <> 0 then
                Result := Result + ' Enterprise Edition for Itanium-based Systems';
            end
            else if (si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64) then
            begin
              if (OSVERSIONINFOEX.wSuiteMask and VER_SUITE_DATACENTER) <> 0 then
                Result := Result + ' Datacenter x64 Edition'
              else if (OSVERSIONINFOEX.wSuiteMask and VER_SUITE_ENTERPRISE) <> 0 then
                Result := Result + ' Enterprise x64 Edition'
              else
                Result := Result + ' Standard x64 Edition';
            end
            else
            begin
              if (OSVERSIONINFOEX.wSuiteMask and VER_SUITE_COMPUTE_SERVER) <> 0 then
                Result := Result + ' Compute Cluster Edition'
              else if (OSVERSIONINFOEX.wSuiteMask and VER_SUITE_DATACENTER) <> 0 then
                Result := Result + ' Datacenter Edition'
              else if (OSVERSIONINFOEX.wSuiteMask and VER_SUITE_ENTERPRISE) <> 0 then
                Result := Result + ' Enterprise Edition'
              else if (OSVERSIONINFOEX.wSuiteMask and VER_SUITE_BLADE) <> 0 then
                Result := Result + ' Web Edition'
              else
                Result := Result + ' Standard Edition';
            end
          end;
        end;
        if (OSVERSIONINFO.dwMajorVersion = 5) and (OSVERSIONINFO.dwMinorVersion = 1) then
        begin
          Result := 'Windows XP';
          if (OSVERSIONINFOEX.wSuiteMask and VER_SUITE_PERSONAL) <> 0 then
            Result := Result + ' Home Edition'
          else
            Result := Result + ' Professional';
        end;
 
        if (OSVERSIONINFO.dwMajorVersion = 5) and (OSVERSIONINFO.dwMinorVersion = 0) then
        begin
          Result := 'Windows 2000';
 
          if (OSVERSIONINFOEX.wProductType = VER_NT_WORKSTATION) then
            Result := Result + ' Professional'
          else
          begin
            if (OSVERSIONINFOEX.wSuiteMask and VER_SUITE_DATACENTER) <> 0 then
              Result := Result + ' Datacenter Server'
            else if (OSVERSIONINFOEX.wSuiteMask and VER_SUITE_ENTERPRISE) <> 0 then
              Result := Result + ' Advanced Server'
            else
              Result := Result + ' Server';
          end;
        end;
 
        if (OSVERSIONINFO.dwMajorVersion <= 4) then
        begin
          Result := 'Windows NT';
          // Test for specific product on Windows NT 4.0 SP6 and later.
          if bOsVersionInfoEx then
          begin
            // Test for the workstation type.
            if (OSVERSIONINFOEX.wProductType = VER_NT_WORKSTATION) and (si.wProcessorArchitecture <> PROCESSOR_ARCHITECTURE_AMD64) then
              Result := Result + ' Workstation 4.0'
                // Test for the server type.
            else if (OSVERSIONINFOEX.wProductType = VER_NT_SERVER) or (OSVERSIONINFOEX.wProductType = VER_NT_DOMAIN_CONTROLLER) then
            begin
              if Bool(OSVERSIONINFOEX.wSuiteMask and VER_SUITE_ENTERPRISE) then
                Result := Result + ' Server 4.0, Enterprise Edition'
              else
                Result := Result + ' Server';
            end
          end
          else
          begin // Test for specific product on Windows NT 4.0 SP5 and earlier
            dwBufLen := BUFSIZE;
            lRet := RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Control\ProductOptions', 0, KEY_QUERY_VALUE, hdlKey);
            if (lRet <> ERROR_SUCCESS) then Exit;
            lRet := RegQueryValueEx(hdlKey, 'ProductType', nil, nil, @szProductType[1], @dwBufLen);
            if ((lRet <> ERROR_SUCCESS) or (dwBufLen > BUFSIZE)) then Exit;
            RegCloseKey(hdlKey);
            if (lstrcmpi('WINNT', szProductType) = 0) then Result := Result + ' Workstation';
            if (lstrcmpi('LANMANNT', szProductType) = 0) then Result := Result + ' Server';
            if (lstrcmpi('SERVERNT', szProductType) = 0) then Result := Result + ' Advanced Server';
            Result := Result + Format(' %d.%d', [OSVERSIONINFO.dwMajorVersion, OSVERSIONINFO.dwMinorVersion]);
          end;
        end;
        // Display service pack (if any) and build number.
        if (OSVERSIONINFO.dwMajorVersion = 4) and (lstrcmpi(OSVERSIONINFO.szCSDVersion, 'Service Pack 6') = 0) then
        begin
          // Test for SP6 versus SP6a.
          lRet := RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Hotfix\Q246009', 0, KEY_QUERY_VALUE, hdlKey);
          if (lRet = ERROR_SUCCESS) then
            Result := Result + Format(' Service Pack 6a (Build %d)', [OSVERSIONINFO.dwBuildNumber and $FFFF])
          else // Windows NT 4.0 prior to SP6a
            Result := Result + Format(' %s (Build %d)', [OSVERSIONINFO.szCSDVersion, OSVERSIONINFO.dwBuildNumber and $FFFF]);
          RegCloseKey(hdlKey);
        end
        else
        begin
          Result := Result + Format(' %s (Build %d)', [OSVERSIONINFO.szCSDVersion, OSVERSIONINFO.dwBuildNumber and $FFFF]);
        end;
      end;
    // Test for the Windows 95 product family.
    VER_PLATFORM_WIN32_WINDOWS:
      begin
        if (OSVERSIONINFO.dwMajorVersion = 4) and (OSVERSIONINFO.dwMinorVersion = 0) then
        begin
          Result := 'Windows 95';
          if (OSVERSIONINFO.szCSDVersion[1] = 'C') or (OSVERSIONINFO.szCSDVersion[1] = 'B') then
            Result := Result + ' OSR2';
        end;
        if (OSVERSIONINFO.dwMajorVersion = 4) and (OSVERSIONINFO.dwMinorVersion = 10) then
        begin
          Result := 'Windows 98';
          if (OSVERSIONINFO.szCSDVersion[1] = 'A') then
            Result := Result + ' SE';
        end;
        if (OSVERSIONINFO.dwMajorVersion = 4) and (OSVERSIONINFO.dwMinorVersion = 90) then
          Result := 'Windows ME';
      end;
    VER_PLATFORM_WIN32s:
      Result := 'Windows Win32s';
  end;
end;

PS : FAQ ? FAQ ? non regardé les détails... ce n'est pas le même détail sur certain windows.

D'ailleur pourquoi par replacer celle de la FAQ par celle-ci ?

**Jipété** · 23/01/2012, 22h35

Bonsoir,

La solution de BuzzLeclaire fonctionne très bien (je l'utilise depuis longtemps, et je détecte parfaitement bien mon 7/32 du taf avec mon prog écrit en D7 perso compilé sur un vieux w2k...

), et peut être améliorée en remplaçant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
        if (OSVERSIONINFO.dwMajorVersion = 6) then
        begin
          case OSVERSIONINFO.dwMinorVersion of
            0:
            begin
              if (OSVERSIONINFOEX.wProductType = VER_NT_WORKSTATION) then
                Result := 'Windows Vista'
              else
                Result := 'Windows Server 2008';
            end;
            1: Result := 'Windows Seven'
          end;

par

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        if (OSVERSIONINFO.dwMajorVersion = 6) then
        begin
          case OSVERSIONINFO.dwMinorVersion of
            0:
              if (OSVERSIONINFOEX.wProductType = VER_NT_WORKSTATION) then
                Result := 'Windows Vista'
              else
                Result := 'Windows Server 2008';
            1:
              if (OSVERSIONINFOEX.wProductType = VER_NT_WORKSTATION) then
                Result := 'Windows Seven'
              else
                Result := 'Windows Server 2008 R2';
          end;

Enjoy,

**HPulluard** · 27/01/2012, 18h42

Reviendu voir si y'avait de nouvelles idées à mon problème...

Oui ! Super je teste !
Je coupe le code...
Je colle dans monprogramme
je teste sur mon ordi Windows 7 avec trémollos neuroniques pleins d'espoir...

Et sa réponse sur l'OS est !
Windows XP Professional .... etc.

OUUUUIiiin ! ça aussi ça ne marche pas !
Tant pis ....Mais je désespère pô !
Ptêt qu'un jour y'aura une solution, une explication ....

**BuzzLeclaire** · 27/01/2012, 19h18

Envoyé par HPulluard

Reviendu voir si y'avait de nouvelles idées à mon problème...

Oui ! Super je teste !
Je coupe le code...
Je colle dans monprogramme
je teste sur mon ordi Windows 7 avec trémollos neuroniques pleins d'espoir...

Et sa réponse sur l'OS est !
Windows XP Professional .... etc.

OUUUUIiiin ! ça aussi ça ne marche pas !
Tant pis ....Mais je désespère pô !
Ptêt qu'un jour y'aura une solution, une explication ....

Hmmm,

a un moment il faut se poser d'autre question...

Apparement ton poste à un problème, où tu nous à pas tout dis.. p'tit cachotier

Parcque la procédure que j'ai mis franchement je n'ai pas un seul user qui y a eu un prob...

**HPulluard** · 28/01/2012, 10h07

Bah j'sus pas cachotier :-)

Dès le début de ce topij'ai signalé que l'ordi W7 qui me sert de test était initialement sous Vista et a été passé sous W7 par un copain de ma fille...
Comme le dit copain est certesun gentil garçon mais surtout un bidouilleur, je me dis que l'install de W7 ne devait pas être très clean !

Pour vérifier tout ça je faire faire tester un chti prog avec ta procédure par un pote qui vient de s'acheter un nouvel ordi sous W7.
Je te tiens au courant du résultat....
Si c'est OK c'est que c'est mon portable W7 qui est m@!$***
Si c'est pareil c'est que c'est ma config de Dephi qui pose PB ( elle commence ptêt à dater ????... )

Si je me suis posé toutes ces questions c'est que comme l'ordi était d'origine sous Vista je pensais que même si l'install W7 n'était pas bonne au pire j'aurais du avoir Vista comme réponse !
En écrivant ces lignes je me dis qu'il y a ptêt une autre réponse !
Cet ordi est un portable Toshiba ! et franchement cette génération Toshibatesque était vraiment pas géniale avec des "couches d'interfaces propriétaires" qui laissaient plus qu'à désirer !

Hélas comme tu le rapelles, je suis maintenant un retraité !
Bien que j'ai monté et dirigé ma boite pendant plus de 20 ans... pendant cette période j'ai fait des choix ! ceux de payer correctement mes salariés, de préférer faire vivre ma boite plutôt que de m'engraisser...
Alors aujourd'hui, certes j'sus pô dans la misère mais j'ai plus trop les moyens de me payer de nouvelles fantaisies orditesques ...
Alors je fais avec ce que j'ai ... mon vieux Delphi 7, mon ordi sous XP ...

**HPulluard** · 05/02/2012, 13h03

Excusez-moi si j'ai un peu tardé ... mais j'étais occupéà d'autres tâches plus terre-à-terre ...

Sinon résultat des courses ...
Apparemment surles machines correctement installés sous Seven, il ne semble pas y avoir de probème avec les solutions que vous m'avez fourni !

Donc tout à la fois je vous remercie ... et j'ai un peu honte de vous avoir cassé les pieds à cause d'une machine pour le moins mal installée !

Je vais donc noter ce PB comme résolu, mais avant de vous quitter j'auraisbien une dernière question ( qui n'a rien à voir ) à vous poser ...
J'écris des programmes pour le plaisir, par passion.
Ces programmes sont tous Free bien entendu.
Y'a-t-il un moyen de les proposer surleforum à ceux que cela pourrait intéresser ?

Win32MajorVersion avec Delphi 7

Langage Delphi

Discussions similaires

Partager

Partager