---

Hvad huuuland er der galt med dette:

var
Mem: PChar; // Mem[0..MAX_COMPUTERNAME_LENGTH + 1] of Char - er også prøvet
I: Integer;
ComputerName:String;

begin
GetMem(Mem,MAX_COMPUTERNAME_LENGTH + 1);
if GetComputerName(Mem,I) then begin // Her stopper compileren med følgende fejlmeddelelse:
"Types of actual and formal var parameters must be identical" - citat slut.
ComputerName:=String(Mem);
FreeMem(Mem);
end else begin
FreeMem(Mem);
Beep;
ShowMessage('Din computer er ikke logget på ellers har den ingen "Computernavn"'#13#10+
'Computerens navn anføres i "Andre computere\Egenskaber\Identifikation"'#13#10#10+
'Programmet afsluttes');
exit;
end;
end;

Peter

---

jessie-peter@get2net.dk (P.L.) wrote in
<SyY86.112$A93.4426@news.get2net.dk>:

>Hvad huuuland er der galt med dette:
>
>var
> Mem: PChar; // Mem[0..MAX_COMPUTERNAME_LENGTH + 1] of Char - er
> også prøvet
> I: Integer;

I skal være en DWORD.

/Data

---

---

Hej.

"P.L." <jessie-peter@get2net.dk> skrev i en meddelelse
news:YG296.324$A93.11882@news.get2net.dk...
> Hej Jesper
> Tak for din idé med DWORD. Nu vil compileren godt nok modtage min kode,
men problemet er fortsat, at
> jeg ikke har fået fat i ComputerName.
> Det jeg er på jagt efter der "Andre
Computere\Identifikation\Computernavn", er det den rigtige
> metode til at fremskaffe dette ????

Jeg er ikke helt med på hvad du mener med ovenstående,
men denne kode giver dig computernavnet på din maskine:

function GetCurrentComputerName : string;
const
cnMaxComputerNameLen = 254;
var
sComputerName : string;
dwComputerNameLen : DWord;
begin
dwComputerNameLen := cnMaxComputerNameLen-1;
SetLength( sComputerName, cnMaxComputerNameLen );
GetComputerName(
PChar( sComputerName ),
dwComputerNameLen );
SetLength( sComputerName, dwComputerNameLen );
Result := sComputerName;
end;