[Delphi] PC herkenning

[Rhinus]

Ik ben aan het programeren in Delphi en ik wil dat wanneer mijn programma gestart word er gekeken word op welke PC dit gebeurt. Omdat elke PC andere instellingen heeft.
Hoe kan daar erachterkomen?

(Denk aan IP-en op I-net)

[Enlightenment]

Op welke PC?

Nouja je kan een waarde in het register schrijven, dat eenmalig een unieke waarde meegeven en zo de computer identificeren.

[deathz0rz]

je kan het met deze registry key proberen: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductId

[Rhinus]

Ik snap jullie niet .


Wat ik wil doen is:

1 database met daarop iets van 4 PC's. Bij opstarten moet je een wachtwoord invullen en een gebruikersnaam. Nu wil ik dat als je het programma opstart er als gebruikers naam de naam staat van de vorige die op die PC ingelogt heeft omdat de kans dat die weer inlogt vrij groot is (ieder eigen PC).

Hoe doe ik dat in Delphi?



Voor te kijken welke datum gebruik je de functie 'now'. Is er ook een functie waarmee je de PC-naam/code/weet ik wat kan oproepen?

[deathz0rz]

uses ..., Registry;

...

var Registry: TRegistry;
    PCID: string;
begin
  Registry:=TRegistry.Create;
  Registry.RootKey:=HKEY_LOCAL_MACHINE;
  Registry.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion',False);
  try
    PCID:=Registry.ReadString('ProductId');
  except
    On Exception do;
  end;
  if length(PCID)=0 then
    Application.Messagebox('Fout bij inlezen registry','FOUT');
  Registry.Free;
end;

Rhinus schreef op 11-01-2004 @ 16:38:
Is er ook een functie waarmee je de PC-naam/code/weet ik wat kan oproepen?

Vast wel.
Je wilt de loginaam van de persoon die is ingelogd op de PC.
In FoxPro is daar de SYS( 0 ) voor. Deze geeft bijvoorbeeld terug "ED # Erik Dokter"
Voor de # staat de computernaam. daar achter staat de inlognaam. hoogstwaarschijnlijk heeft Delphi daar soortgelijke functies voor. Moet je even zoeken. Bijvoorbeeld 'machine information'.

[Rhinus]

deathz0rz schreef op 11-01-2004 @ 16:54:

uses ..., Registry;

...

var Registry: TRegistry;
    PCID: string;
begin
  Registry:=TRegistry.Create;
  Registry.RootKey:=HKEY_LOCAL_MACHINE;
  Registry.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion',False);
  try
    PCID:=Registry.ReadString('ProductId');
  except
    On Exception do;
  end;
  if length(PCID)=0 then
    Application.Messagebox('Fout bij inlezen registry','FOUT');
  Registry.Free;
end;

Dit werk, nu is alleen mijn vraag. Wat houd dat nummer in?
Bedankt alvast.

[Enlightenment]

ProduktID is een hash (wiskunde bewerking) van het seriële nummer, voor zover ik weet.

[Rhinus]

En dat is uniek 100% uniek? Ook als alle PC zelfde type zijn en alle PC's Windows van de zelfde CD hebben?

Wat is trouwens het verschil tussen een Frame en een Form?
(Ik ben nog vrij lekerig.)

[Screaming Slave]

als het idd een hash is van de cdkey is die dus niet uniek, als je overal dezelfde cdkey hebt. pak dan ipv de pid het mac adres van je nic.

[Rhinus]

Het wat?

[McMotion]

Rhinus schreef op 11-01-2004 @ 16:38:
Ik snap jullie niet .


Wat ik wil doen is:

1 database met daarop iets van 4 PC's. Bij opstarten moet je een wachtwoord invullen en een gebruikersnaam. Nu wil ik dat als je het programma opstart er als gebruikers naam de naam staat van de vorige die op die PC ingelogt heeft omdat de kans dat die weer inlogt vrij groot is (ieder eigen PC).

je wilt dus de gebruikersnaam van de laatst ingelogde user onthouden van die PC onthouden? dan zet je die toch in je registry? kijk maar ff in de help van TRegistry

of bedoel je de laatst ingelogde user van alle computers? dan moet je gewoon op de database bijhouden welke user als laatste heeft ingelogd (de username in de database opslaan dus)

[Rhinus]

McMotion schreef op 17-01-2004 @ 13:13:
je wilt dus de gebruikersnaam van de laatst ingelogde user onthouden van die PC onthouden? dan zet je die toch in je registry? kijk maar ff in de help van TRegistry

Oke.