几个delphi的问题！

Question

1. 可由 screen 对象得到。
2. 用SaveToFile方法。

Answer 1

分辨率:Screen.Width,Screen.Height.
当机IP:(呵呵，也不是我写的)
uses winsock; 
... function GetIPAddress: string; 
var 
  phoste:PHostEnt; 
  Buffer:array[0..100] of char; 
  WSAData:TWSADATA; 
begin 
  result:=''; 
  if WSASTartup($0101, WSAData) <> 0 then exit; 
  GetHostName(Buffer,Sizeof(Buffer)); 
  phoste:=GetHostByName(buffer); 
  if phoste = nil then 
  begin 
    result:='127.0.0.1'; 
  end 
  else 
    result:=StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^)); 
  WSACleanup; 
end; procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Label1.Caption:=GETIPAddress; 
end;