Numer seryjny sprzętu

0

Hej.

Czy zna ktos moze funkcje, albo sposób na zdobycie numeru seryjnego jakiegos <ort>użądzenia </ort>(np karty graficznej, dysku twardego, karty sieciowej etc...)

pozdrawiam,
MiloszeS

0

Rany, ale ja czasem żałuję że nie mam tych praw moderatora...

Pobieranie numeru dysku twardego pojawia się często na forum, numer MAC karty sieciowej jest w FAQ, coś o płycie głównej też jest w czeluściach archiwum. A numerów innych "użądzeń" nie widziałem...

0

Oki spoko.

Ale nie spotkalem Artykulu mowiacego jak zdobyc numer DYSKUtawrdego, a nie partycji. Potrzebuje numer do jakiegos urzadzenia ktore znajduje sie w wiekszosci standardowych domowych systemow komputerowych. CO nie zmienia sie tak szybko.... Wybacz ale nie znalazlem nic takiego na 4 programmers i google.

0

http://www.swissdelphicenter.com/en/showcode.php?id=57
3 minuty szukania :P ale nie wiem czy działa bo nie sprawdziałem :]

0

Wlasnie nie :/.

Na sieci jest duzo materialow mowiacych jak zdobyc numer partycji :/. Tak jak twoj link powyzej.. Sprawa wbrew pozorom nie jest prosta i jak do tej pory nie znalazlem rozwiazania.

0

Dla zainteresowanych.

Znalazlem taki kod umozliwiajacy odczytanie seriala biosu. Nestety jest "mala" wada takeigo rozwiazania- nie dziala pod win2000/XP- ochrona pamieci.
A oto kod:


function GetBiosInfoAsText(): string;
var
  p, q: pchar;
begin
  q := nil;
  p := PChar(Ptr($FE000));
  repeat
    if q <> nil then begin
      if not (p^ in [#10, #13, #32..#126, #169, #184]) then begin
        if (p^ = #0) and (p - q >= 8) then begin
          Result := Result + TrimRight(String(q)) + #13#10;
        end;
        q := nil;
      end;
    end else
      if p^ in [#33..#126, #169, #184] then
        q := p;
    inc(p);
  until p > PChar(Ptr($FFFFF));
  Result := TrimRight(Result);
end;
0

To znowu ja.

Przedstawiam wyniki moich poszukiwan.
Znalazlem freewewareowy komponent do delphi (5 - 7), ktory umozliwia nam uzyskanie bardzo wielu informacji na temat systemu tj. data utworzenia BIOS, numer seryjny plyty gl, HDD oraz, wiele... wiele innycj bardzo przydatnych informacji.

Działa pod systemami:
MS Windows 9x
MS Windows ME
MS Windows NT 4.x
MS Windows 2000
MS Windows XP
MS Windows Server 2003

link do strony:

http://www.mitec.cz/

nazwa komponentu:
System Information Component

pozdrawiam,
MiloszeS

0

wbrew pozorom ten link do swissdelphi center nie jest taki w pełni zły... w komentarzach jest: http://www.swissdelphicenter.[...]ent.php?id=57&detail=1345 ten kod, wykorzystujący SMART, który podaje numer DYSKU a nie partycji!

//żaden mod jeszcze tego orta nie zauważył?

// spokojnie spokojnie - ŁF

0

wbrew pozorom ten link do swissdelphi center nie jest taki w pełni zły... w komentarzach jest: http://www.swissdelphicenter.[...]ent.php?id=57&detail=1345 ten kod, wykorzystujący SMART, który podaje numer DYSKU a nie partycji!

ale ten kod nie działa na Win 9x

0

wbrew pozorom ten link do swissdelphi center nie jest taki w pełni zły... w komentarzach jest: http://www.swissdelphicenter.[...]ent.php?id=57&detail=1345 ten kod, wykorzystujący SMART, który podaje numer DYSKU a nie partycji!

ale ten kod nie działa na Win 9x

Jak nie działa :/ u mnie działa a mam 98 :|

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0