Comment récupérer le numéros de séries de la carte mère ?Résolu

Question

Salut &#224; tous, 
Comment r&#233;cup&#233;rer le num&#233;ros de s&#233;ries de la carte m&#232;re ? 
Merci d'avance.


Mon Site Web : http://Www.BenXbox.Fr.sT

jmp77 · Accepted Answer

Normal fais comme ceci :

procedure TForm1.Button1Click(Sender: TObject);


var

Resultat : Boolean;

NumSerie : LongInt;



begin


Protection(NumSerie,Resultat);


Edit1.Text := FloatToStr(NumSerie);
end;


Sinon je ne sais pas si tu as &#233;t&#233; sur torry.net il y a des compos autre
que celui de tout a l heure pour recuperer le numero de serie de la
carte mere : (je pense que le dernier compo meriterait que tu le testes)

http://www.torry.net/quicksearchd.php?String=motherboard&Title=No

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

japee · Answer

Un d&#233;bat au sujet de l'(in)utilit&#233; de r&#233;cup&#233;rer le n&#176; de la carte m&#232;re et des solutions ici (it's in english, sorry) :



http://www.experts-exchange.com/Programming/Programming_Languages/Delphi/Q_20803727.html




Bonne prog'

neodelphi · Answer

D&#233;monte la carte m&#232;re de ton pc (de pr&#233;f&#233;rence apr&#232;s avoir coup&#233;
l'alimentation), et regarde si c'est pas marqu&#233;. Si tu trouve pas envoi
nous par la poste ta carte m&#232;re on pourra ptete regader 

neodelphi

BenXbox · Answer

C'est pour faire un syst&#232;me de s&#233;curit&#233; pour l'enregistrement d'un logiciel, alors des r&#233;ponses comme celle-ci je n&#8217;en est pas besoin.
Merci.


Mon Site Web : http://Www.BenXbox.Fr.sT

rylryl · Answer

Bonjour a tous ...
Peut etre que tu peut utiliser "WMI" avec "WIN32_baseboard" ...
a+
ryl...

BenXbox · Answer

Salut rylryl,
WMI  ne marche que pour XP.

Mais merci comme meme.


Mon Site Web : http://Www.BenXbox.Fr.sT

jmp77 · Answer

Hello,



Regarde ce compos http://www.delphi32.com/vcl/2460/



TASCpuInfo 1.66 

Description :

TASCpuInfo
is a non-visual component that will let you retrieve many important
information from the host CPU, such as model, vendor, features and ...
speed. That's right: this component tells you at what speed (in MHz)
the processor is running. It will detect MMX processors, as well as
model, family, stepping, presence of a FPU, etc. As an added feature,
it also retrieves the motherboard serial number and BIOS model. 


Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

BenXbox · Answer

Salut jmp77,
J'ai essayer mais sa ne chope pas le num&#233;ro de s&#233;ries.
Merci comme m&#234;me.

Mon Site Web : http://Www.BenXbox.Fr.sT

jmp77 · Answer

Snif d&#233;sol&#233;.



Je regarde si je trouve autre chose.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

BenXbox · Answer

Les disk dur on un num&#233;ro de series ?
Si oui peut on le trouver facilement avec delphi ?
Merci d'avance.


Mon Site Web : http://Www.BenXbox.Fr.sT

jmp77 · Answer

Ca oui je peux t'aider. Voici la fonction que j'utilise pour recuperer le numero de serie du disk dur :

{------------------------------------------------------------------------------}

{                   
Renvoie le numero du disk
dur                            
}

{------------------------------------------------------------------------------}

procedure TProtectChpSoft.DiskInfo(var NumSerie : LongInt;var Resultat : Boolean);



var

NonUtilise1,NonUtilise2 : Dword;

Nom : array [0..255] of Char;

FileSystemName :array[0..255] of Char;



begin



  If GetVolumeInformation('C:\', Nom, SizeOf(Nom), @NumSerie,

  NonUtilise1, NonUtilise2, FileSystemName, SizeOf(FileSystemName)) then

  begin

  NumSerie := Abs(NumSerie);

  Resultat := True;

  end

  else

  Resultat := False;

end;

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

BenXbox · Answer

Sa marche pour tout les Windows ?
Et ci le disk ne s'appel pas c:, comment je fais pour recupere le nom du disk qui a windows ?
Merci pour ta r&#233;ponse.


Mon Site Web : http://Www.BenXbox.Fr.sT

jmp77 · Answer

Ecoute moi cette fonction fonctionne sous win98, winnt, win2000 et
winxp donc je pense que l'on peut dire que ca marche avec tout les
windows.



Si ton disk n'est pas c:\ et bien je pense qu'il faut aller chercher
dans la base de registre le repertoire d'installation de windows et en
extraire la lettre du lecteur par exemple.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

BenXbox · Answer

J'ai essayer comme sa :

procedure Protection(var NumSerie : LongInt;var Resultat : Boolean);
var
NonUtilise1,NonUtilise2 : Dword;
Nom : array [0..255] of Char;
FileSystemName : array[0..255] of Char;
begin
if GetVolumeInformation('C:\', Nom, SizeOf(Nom), @NumSerie, NonUtilise1, NonUtilise2, FileSystemName, SizeOf(FileSystemName)) then
begin
NumSerie := Abs(NumSerie);
Resultat := True;
end
else
Resultat := False;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := Protection;
end;

Il me dit : Pas assez de param&#232;tres originaux.


Mon Site Web : http://Www.BenXbox.Fr.sT

BenXbox · Answer

Bas enfaite j'ai plus trop besoin, puisque c du pareil au meme avec le disk dur, il me fallais juste un num&#233;ro qui ne change pas sur un pc.
Merci pour ton aide.


Mon Site Web : http://Www.BenXbox.Fr.sT

jmp77 · Answer

Ah ben c cool.



Mais oui je viens de lire ton message tout en haut comme quoi tu
voulais faire un systeme d'enregistrement. D&#233;sol&#233; j'aurai pu te
depanner de suite puisque j'utilise justement le numero du disk dur
pour faire cela.Ah je lis trop vite des fois.

Allez bon courage maintenant.

Bonne prog,
JMP77.

BenXbox · Answer

Bas merci gr&#226;ce &#224; toi j'ai pue sortir la version de d&#233;mo d'un de mes logiciels :

http://benjouke.free.fr/index.php?Page=12


Mon Site Web : http://Www.BenXbox.Fr.sT

japee · Answer

BenXbox,



J'avais &#233;crit avant d'aller sur ton site :



As-tu r&#233;fl&#233;chi &#224; tous les aspects de ton syst&#232;me de protection ?



Tu noteras que si l'utilisateur change de disque dur, de carte m&#232;re
(crash du DD, update du mat&#233;riel...) ou veut transf&#233;rer ton appli sur
un autre ordi, il faut qu'il se connecte sur ton site pour obtenir une
nouvelle licence ?



Et comment d&#233;terminer si cet utilisateur est de bonne foi, ou cherche &#224;
installer 2 fois (ou plus) le programme ? A moins de "fliquer" par une
connexion &#224; son insu (pas beau, et qui sera de toute mani&#232;re
intercept&#233;e par un Firewall), ou en toute transparence (il va pas
aimer).



C'est &#224; peine supportable pour un OS (que je ne citerai pas), mais l&#224;...



Enfin, c'est &#224; toi de voir...



Une bonne licence personnelle, c'est d&#233;j&#224; bien, et de toute mani&#232;re,
faut &#234;tre balaise pour qu'une protection ne soit pas (trop) facilement
"craquable".



Toute contrainte concernant la "protection" d'un programme, d'un droit
d'auteur, etc... repr&#233;sente une g&#234;ne consid&#233;rable pour l'utilisateur
final.



En conclusion, y'a int&#233;r&#234;t que ton programme soit au Top, sinon
beaucoup se tourneront vers une version freeware, m&#234;me si elle est plus
"light".



Je suis all&#233; sur ton site :



Bon, si c'est le prix d'un caf&#233;, alors... pourquoi pas ?



japee

BenXbox · Answer

Oui mais peut de gens pensse comme toi, meme pour le prix d'un caf&#233; ils sont capable de cracker le logiciel.


Mon Site Web : http://Www.BenXbox.Fr.sT

BenXbox · Answer

J'ai un probleme aveec les firewalls, si on mais non, ma protection saute de suite, alors j'aurrais voulue savoir comment faire pour fermer le programme si le mec n'a pas laiss&#233; le logiciel aller a l'adresse de verification.
Merci d'avance.

Mon Site Web : http://Www.BenXbox.Fr.sT

Comment récupérer le numéros de séries de la carte mère ?

22 réponses

Votre réponse

Discussions similaires