/
Forside
/
Teknologi
/
Udvikling
/
Delphi/Pascal
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
Delphi/Pascal
#
Navn
Point
1
oldwiking
603
2
jrossing
525
3
rpje
520
4
EXTERMINA..
500
5
gandalf
460
6
gubi
270
7
DJ_Puden
250
8
PARKENSS
230
9
technet
210
10
jdjespers..
200
Problemer med "GetComputerName"
Fra :
P.L.
Dato :
16-01-01 15:02
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
Jesper Krog Andersen (
16-01-2001
)
Kommentar
Fra :
Jesper Krog Andersen
Dato :
16-01-01 15:36
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
N/A (
16-01-2001
)
Kommentar
Fra :
N/A
Dato :
16-01-01 23:05
Jan Pe\"d\"ersen (
16-01-2001
)
Kommentar
Fra :
Jan Pe\"d\"ersen
Dato :
16-01-01 23:05
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;
Søg
Alle emner
Teknologi
Udvikling
Delphi/Pascal
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177552
Tips :
31968
Nyheder :
719565
Indlæg :
6408847
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.