Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

computer name

Posted on 2001-09-10
15
Medium Priority
?
241 Views
Last Modified: 2010-04-06
how do i get the computer name?
0
Comment
  • 7
  • 2
  • 2
  • +4
15 Comments
 
LVL 6

Expert Comment

by:Stuart_Johnson
ID: 6472988
It's found in the registry under:

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName

HTH

Stu.
0
 

Author Comment

by:dabestprogrammerindauniverse
ID: 6473039
i mean how do i get it through programming?
0
 
LVL 6

Accepted Solution

by:
Stuart_Johnson earned 200 total points
ID: 6473056
uses Registry;

function GetComputerName: String;
begin
  with TRegistry.Create do
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey('SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName', false) then
  if ValueExists('ComputerName') then
    Result := ReadString('ComputerName');
      CloseKey;
    finally
      free; {TRegistry}
    end; {try..finally}
end; {GetComputerName}
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
LVL 2

Expert Comment

by:alexstewart@beta
ID: 6473107
Is this what you mean?

try the
getcomputername
windows api call, its in the halp.


I'm lazy so I stole this from
www.techtricks.com/delphi

procedure TForm1.Button1Click(Sender: TObject);
var
   pcName : array[0..MAX_COMPUTERNAME_LENGTH]of char;  
// Holds the computer name
   dwSize : dword;  
// length of the name
begin
      if not getComputerName( pcName, dwSize ) then
         application.MessageBox(
            pChar( 'Reason: The API call failed' + #10#10 +
                   'Windows reports the error code as ' +
                   intToStr( getLastError ) ),
                   'Can''t Get Computer Name', ID_OK )
      else
         application.MessageBox(
            pChar( 'This computer is named "' + pcName +
                   '", which contains ' + intToStr( dwSize ) +
                   ' character(s).' ), 'FYI', ID_OK );
end;

0
 
LVL 6

Expert Comment

by:Stuart_Johnson
ID: 6473121
Dammit :)  I knew there was an API for it, I just couldn't remember what it was off the top of my head and did it the old fashioned way!
0
 

Expert Comment

by:Sulistyo
ID: 6473187
try this (i'm using Delphi 5)

procedure TForm1.FormCreate(Sender: TObject);
var s:array[0..20] of char; // should be long enough
    L:Cardinal;             // Longint in case Delphi 3
begin
  getComputerName(S,L);
  label1.Caption:=StrPas(s);
end;
0
 
LVL 6

Expert Comment

by:Stuart_Johnson
ID: 6473234
Please do not accept the "answer" proposed by Sulistyo.  As you will notice, it is exactly the same as what alexstewart posted (only consensed).

Sulistyo - it is considered good manners to leave the question open and not lock it until asked to do so by the questioner.  This ensures that other experts get the oppotunity to post comments which maybe more useful that what you have proposed.

You will also note that you are using exactly the same API as alexstewart (GetComputerName).  Please make sure you read each comment posted thoroughly before posting an comment to make sure you aren't doubling up.

Stuart
0
 
LVL 6

Expert Comment

by:wimmeyvaert
ID: 6473971
I use 2 functions to get the computername or username (NT) :


function GetUserNameNT : String;
var
  PUserName: PChar;
  Size: LongWord;
begin
  Size:= 100;
  PUserName:= StrAlloc(100);
  if GetUserName(PUserName, Size) then
    Result := PUserName
  else
    Result := 'No user';
  StrDispose(PUserName);
end;


{ Get the ComputerName (Windows NT) }
function GetComputerNameNT : String;
var
  PComputerName: PChar;
  Size: LongWord;
begin
  Size:= 100;
  PComputerName:= StrAlloc(100);
  if GetComputerName(PComputerName, Size) then
    Result := PComputerName
  else
    Result := 'No ComputerName';
  StrDispose(PComputerName);
end;
0
 
LVL 2

Expert Comment

by:alexstewart@beta
ID: 6476819
Hi Stuart, I couldnt remember it either, its suprising how such an obvious name slips the mind.

Alex
0
 
LVL 1

Expert Comment

by:mpoots
ID: 6477479
wimmeyvaert,

I like your GetUserNameNT function. It also works on my Win 98 machine. Great!

Marcel (Holland)
0
 
LVL 6

Expert Comment

by:wimmeyvaert
ID: 6478521
Hi Marcel,

I hope 'dabestprogrammerindauniverse' also has this feeling, then maybe he'll grant me the points  ;-)

The Mayor.
0
 
LVL 6

Expert Comment

by:Stuart_Johnson
ID: 6478561
dabestprogrammerindauniverse must be too busy coding to get back to us :)
0
 
LVL 6

Expert Comment

by:Stuart_Johnson
ID: 6486277
Hi Alex,

It might be a good idea for you to post an answer - if only to lock this question.

Stu.
0
 
LVL 6

Expert Comment

by:Stuart_Johnson
ID: 6809573
Umm.  Hi all.  I don't know why I was awarded the points for this.  IMO, they should have gone to Alex.  I've requested a reversal on the points, and also have them award to Alex.

http://www.experts-exchange.com/jsp/qManageQuestion.jsp?ta=commspt&qid=20268370

Cheers all.

Stu.
0
 
LVL 1

Expert Comment

by:Computer101
ID: 6809726
Question for alex in this topic area for your assistance.

Thank you
Computer101
Community Support Moderator
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
As many of you are aware about Scanpst.exe utility which is owned by Microsoft itself to repair inaccessible or damaged PST files, but the question is do you really think Scanpst.exe is capable to repair all sorts of PST related corruption issues?
How can you see what you are working on when you want to see it while you to save a copy? Add a "Save As" icon to the Quick Access Toolbar, or QAT. That way, when you save a copy of a query, form, report, or other object you are modifying, you…
Suggested Courses

572 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question