Computer Name

[Taggs]

Any idea's how I can get my computer name in Delphi 3 please.

IE MYHOMEPC

[Taggs]

I thinks its GetComputerName but I want to put this into a variable.

Any help would be greatly appriciated

[FAT64]

Your computer name appears many times in the registry, which you can access via Delphi.

HKLM\System\CurrentControlSet\Control\ComputerName\ComputerName

[FAT64]

Indeed, as you suggested, you could use ...

function GetComputerName: string;

var

buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of char;

Size: Cardinal;

begin

Size := MAX_COMPUTERNAME_LENGTH + 1;

Windows.GetComputerName (@buffer, Size);

Result := StrPas (buffer)

end;

... don't know if it works with Delphi 3, it certainly works with Delphi 7!

[Taggs]

Thanks for the post

I'm getting the error :Types of actual and formal var parameters must be identical on this line.

Windows.GetComputerName(buffer, Size);

[FAT64]

Did you forget the "@"?

[Taggs]

Oops sorry missed it off the post. still get same Error!

[FAT64]

It might be a "feature" of Delphi 3.

[Taggs]

An undocumented one

[FAT64]

Can you post the entire program?

[Taggs]

Sure, here you go

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

var

buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;

Size: Cardinal;

Result :string;

begin

Size := MAX_COMPUTERNAME_LENGTH + 1;

Windows.GetComputerName(@buffer, Size);

Result := StrPas(buffer);

end;

end.

Not much of a program as yet, as I've fallen at the first hurdle!

But it will all depend on getting the computer name and looking this up against a database!

[FAT64]

I'm intrigued as to why the GetComputerName function is within a "FormCreate" method?

Try ... (Place a Button on the Form, double click on it and type "ShowMessage (GetComputerName)" inside. Also what do the Labels do??)

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

function GetComputerName; string;

var

buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;

Size: Cardinal;

begin

Size := MAX_COMPUTERNAME_LENGTH + 1;

Windows.GetComputerName(@buffer, Size);

Result := StrPas(buffer);

end;

procedure Button1Click(Sender:TObject);

begin

ShowMessage (GetComputerName)

end;

end.

[Taggs]

Still get them!

Ignore the labels they are just a message on the screen.

It is in create, as when I run the program, it runs a process and then closes with out any interaction from the user!

[Taggs]

http://www.msfn.org/board/index.php?showtopic=39460&st=0

this is what it will be used for!

[FAT64]

All I can say further, is that it definitely works in Delphi 7.