How to get the computername

[Pete Rose]

Hi,

Can somebody help getting the computername?
I'm trying to get it using the GetComputerName function from the windows
unit, but it's not working, I only get a 3char long strange string....

Thanks in advance

--
met vriendelijke groet,

Jochem Wielders

Enixé IT Consultancy BV
Botnische Golf 9a
3446 CN Woerden

tel: 0348 - 430 222
fax: 0348 - 430 020
mob: 06 - 15028762

www.enixe.nl

["david_henningsson"_nil]

Function ComputerName: String;
var I:Integer;
begin
I := 99;
SetLength(Result,I+1);
Win32Check(GetComputerName(PChar(@Result[1]),I));
SetLength(Result,I);
end;

[Pete Rose]

Thanks,

your the best!

<David Henningsson nil> wrote in message news:3c4d551f$1_1@dnews...

[Pete Rose]

Thanks,

your the best! Works fine

<David Henningsson nil> wrote in message news:3c4d551f$1_1@dnews...
>