Réponse acceptée !
salut Zan,
pour GetSystemInfo :
var
lpSystemInfo : _SYSTEM_INFO;
begin
GetSystemInfo(lpSystemInfo);
ShowMessage(IntToStr(lpSystemInfo.dwProcessorType));
end;
|
et pour GetComputerName :
var
lpBuffer : array[0..255] of char;
Size : Cardinal;
begin
GetComputerName(lpBuffer,Size);
ShowMessage(Copy(lpBuffer,1,Size));
end;
|
Bonne Prog,
Olivier
PS : Lorsqu'une
réponse vous convient, n'oubliez pas de la validée.