COmputernavn

det kan du ikke....

eeeeeh .. hvof ikk

Hvis det ProductId du vil ha\' (hvilket jeg går ud fra da det er et ProductId du har givet som eksempel) så ligger nummeret i HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion i key\'en ProductId (på Win2k i hvert fald) og så er det jo bare og gå ind og læse det!

Snowball

Med navnet regner jeg med, at det mener computernavnet. Det kan du hente med funktionen

  GetComputerName

husk en

  Uses Windows

inden.

Productid ligger lidt forskelligt afhængigt af Windowsversionen, men mon ikke Snowballs svar giver dig en god ide om, hvor du skal lede...!

Der findes, så vidt jeg ved, ingen direkte funktion til at hente licenskoden med, så der kommer du ikke uden om at skulle kigge i Registry.

her er lidt godt fra mine gemmer :

function GetWindowsDirectory: string;
begin
  SetLength(Result, MAX_PATH);
  Windows.GetWindowsDirectory(PChar(Result), MAX_PATH);
  SetLength(Result, Pred(Pos(#0, Result)));
end;

procedure SetComputerName(ComputerName: string);
begin
  if Length(ComputerName) > MAX_COMPUTERNAME_LENGTH then
    SetLength(ComputerName, MAX_COMPUTERNAME_LENGTH);
  Windows.SetComputerName(PChar(ComputerName));
end;

function GetComputerName: string;
var
  Size: Cardinal;
begin
  Size := MAX_PATH;
  SetLength(Result, MAX_PATH);
  Windows.GetComputerName(PChar(Result), Size);
  SetLength(Result, Pred(Pos(#0, Result)));
end;

function GetCurrentUserName: string;
var
  Size: Cardinal;
begin
  Size := MAX_PATH;
  SetLength(Result, Size);
  Windows.GetUserName(PChar(Result), Size);
  SetLength(Result, Pred(Pos(#0, Result)));
end;


Jens B

Tusind mange tak alle sammen!
Fik skidtet til at virke. Skulle bruge lidt skrivebeskyttelse til et program
VH Rasmus

Skulle du så ikke hellere binde det op md dit netkort ?

Med netkortsadressen? Det kunne man selvfølgelig, men det andet her virker ok, da brugeren aldrig får at vide hvad jeg kigger efter .. hehe