works on '98 though...)
Try to see how it may help you...
Horia
----- Message from [EMAIL PROTECTED] ---------
Date: Thu, 04 May 2006 18:55:05 -0000
From: Roberto Freitas <[EMAIL PROTECTED]>
Reply-To: [email protected]
Subject: [delphi-en] Computer Name
To: [email protected]
> Hello, I use this function to get computer name on Win 98:
>
> function Computer_Name(CName: PChar): PChar;
> var
> Registro : TRegistry;
> i : ShortInt;
> S : String;
> begin
> result := CName;
> Registro := TRegistry.Create;
> try
> Registro.RootKey := HKEY_LOCAL_MACHINE;
> if Registro.OpenKey
> ('\System\CurrentControlSet\Services\VxD\VNETSUP', False) then
> begin
> S := Registro.ReadString('ComputerName');
> if (Length(S) > 0) then
> for i := 1 to Length(S) do
> begin
> CName^ := S[i];
> Inc(CName);
> end;
> Registro.CloseKey;
> end;
> finally
> Registro.Free;
> end;
> CName^ := #0;
> end;
>
> It works fine with Win 98.
> What changes are necessary in order to work properly also with Win
> 2000 and Win XP?
> How can I know what operational system is running on the computer?
>
> -----------------------------------------------------
> Home page: http://groups.yahoo.com/group/delphi-en/[1]
> To unsubscribe: [EMAIL PROTECTED]
>
> SPONSORED LINKS
>
> C programming language[2] Computer programming languages[3]
> Java programming language[4]
> The c programming language[5] C programming language[6]
> Concept of programming language[7]
>
> -------------------------
> YAHOO! GROUPS LINKS
>
> * Visit your group "delphi-en[8]" on the web.
>
> * To unsubscribe from this group, send an email to:
> [EMAIL PROTECTED]
>
> * Your use of Yahoo! Groups is subject to the Yahoo! Terms of
> Service[10].
>
> -------------------------
>
>
> Links:
> ------
> [1] http://groups.yahoo.com/group/delphi-en/
> [2]
> http://groups.yahoo.com/gads?t=ms&k=C+programming+language&w1=C+programming+language&w2=Computer+programming+languages&w3=Java+programming+language&w4=The+c+programming+language&w5=C+++programming+language&w6=Concept+of+programming+language&c=6&s=194&.sig=lC1PxfzvANy_Br-nPkXYTA
> [3]
> http://groups.yahoo.com/gads?t=ms&k=Computer+programming+languages&w1=C+programming+language&w2=Computer+programming+languages&w3=Java+programming+language&w4=The+c+programming+language&w5=C+++programming+language&w6=Concept+of+programming+language&c=6&s=194&.sig=7XFXh-0Mon1IfLuOVlwvdg
> [4]
> http://groups.yahoo.com/gads?t=ms&k=Java+programming+language&w1=C+programming+language&w2=Computer+programming+languages&w3=Java+programming+language&w4=The+c+programming+language&w5=C+++programming+language&w6=Concept+of+programming+language&c=6&s=194&.sig=UITodqn0qTCUcae_mpRQog
> [5]
> http://groups.yahoo.com/gads?t=ms&k=The+c+programming+language&w1=C+programming+language&w2=Computer+programming+languages&w3=Java+programming+language&w4=The+c+programming+language&w5=C+++programming+language&w6=Concept+of+programming+language&c=6&s=194&.sig=xnZC2-BzDSLhhir3MLtssg
> [6]
> http://groups.yahoo.com/gads?t=ms&k=C+++programming+language&w1=C+programming+language&w2=Computer+programming+languages&w3=Java+programming+language&w4=The+c+programming+language&w5=C+++programming+language&w6=Concept+of+programming+language&c=6&s=194&.sig=RTzTl3BOJWbWK14CdUrO0w
> [7]
> http://groups.yahoo.com/gads?t=ms&k=Concept+of+programming+language&w1=C+programming+language&w2=Computer+programming+languages&w3=Java+programming+language&w4=The+c+programming+language&w5=C+++programming+language&w6=Concept+of+programming+language&c=6&s=194&.sig=x4ueM0tA417JDq3ckdJ9CQ
> [8] http://groups.yahoo.com/group/delphi-en
> [9] mailto:[EMAIL PROTECTED]
> [10] http://docs.yahoo.com/info/terms/
>
----- End message from [EMAIL PROTECTED] -----
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
YAHOO! GROUPS LINKS
- Visit your group "delphi-en" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
