ďťż

Ładny brzuch

W jaki sposób można programowo odczytać numer seryjny jakiegoś podzespołu komputera, np dysku twardego?


edit: ups... to nie ten numer lol :/

procedure TForm1.Button1Click(Sender: TObject); var s:string; nr, t:cardinal; begin GetVolumeInformation('c:\',nil,0,@nr,t,t,nil,0); s:=Format('%x:%x',[nr div $FFFF,nr and $FFFF]); Caption:=s; end;
Użytkownik Cyrkiel edytował ten post 24 czerwiec 2006, 18:53
Działa, thx. A w jaki sposób programowo można odczytać nazwe aktualnie zalogowanego użytkownika, i czy jest to zależne od rodzaju windowsa, czy są utrzymane standardy?

GetUserName
Nie powinno zależeć od wersji Windowsa.


to zmienna globalna? Wymaga jakiejś biblioteki?
Bo rozumiem że button1.Caption:=GetUserName nie zadziała :)

http://delphi.cartal...tania/pyt67.htm
//To jest pierwszy wynik w Google <_<
Użytkownik pbnan edytował ten post 04 lipiec 2006, 17:36
Jest w tym bufferze troche śmietnika, ale jest też to czego szukałem. Dzięki.

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •