procedure TForm1.Button1Click(Sender: TObject);
var
ComName : ^string;
ComSize : integer;
ret : boolean;
begin
ComSize := MAX_COMPUTERNAME_LENGTH +1 ;
New(ComName);
ret := GetComputerName( PChar(ComName), Comsize );
if ret = true then
ShowMessage(PChar(ComName));
end;
위에것이 델파이팁입니다. 자기 컴퓨터의 이름을 알아내는것
입니다. 그런데 여러가지 이해가 안가는 부분이 있습니다.
이걸 씨빌더로 고쳐봤는데 안됍니다. 제가 델파이를 모르기
때문이죠.
char Buff[MAX_COMPUTERNAME_LENGTH];
unsigned long *size;
size=(unsigned long*)MAX_COMPUTERNAME_LENGTH +1;
GetComputerName(Buff,size);
Label3->Caption=Buff;
이렇게 했습니다.
위에 델파이에선 new라는 함수를 썼는데 용도를 몰라서 못했습
니다. 부디 가르쳐 주세요
저번에 포맷 답변해주셔서 감사드립니다.
|