임프랍니다.

다음은 로컬 시스템의 IP를 알아내는 함수입니다. uses에 winsock을 추가해야 합니다.

function GetLocalIP: string;
var
  wsaData: TWSAData;
  slocal: string;
  hos: PHostEnt;
  addr: PChar;
begin
  result := '';
  if WSAStartup($101, wsaData) <> 0 then exit;
  SetLength(slocal, 256);
  if gethostname(PChar(slocal), 256) = SOCKET_ERROR then exit;
  hos := gethostbyname(PChar(slocal));
  if hos = nil then exit;
  addr := (hos.h_addr_list)^;
  result := IntToStr(Byte(addr[0])) + '.' + IntToStr(Byte(addr[1])) + '.'
    + IntToStr(Byte(addr[2])) + '.' + IntToStr(Byte(addr[3]));
  WSACleanup;
end;

그리고.. 사용자 ID라고 말씀하신 것은 뭘 말하는지 명확하지가 않네요.
그럼 이만...


김선우 님이 쓰신 글 :
: 수고가 많으십니다.
: 다름이 아니오라..
: 제가 이번에 프로젝트 하나를 맡았는데..
: 정말 힘들어 죽겠어여... ㅠ.ㅠ
: 다름이 아니오라, 인쇄를 할시에 IP,날짜,사용자ID,인쇄 파일이름 등을
: 시스템에서 가져와서 인쇄시에 문서에 출력을 할예정입니다.
: 그냥 지금은 일단 버튼눌러서 Edit창에 뜨게만 하면 되는데...
: 일단 날짜는 했거덩여 API써서리...
: 도움좀 부탁 드려여.. ㅠ.ㅠ
: