1. 可由 screen 对象得到。
2. 用SaveToFile方法。
2. 用SaveToFile方法。
解决方案 »
- DBComboBox的onChange事件不能使用
- 如何定位到dxdbgrid中的某一网格
- 【才鸟问题】怎么做才能在一个TForm对象显示之前插入一些代码处理一些东西?
- 求教!一个动态参数的问题!!!
- 我用代理上网,用idsmtp控件连接smtp.tom.com就连接不上,怎么办?
- www.programfan.com 这里不错哦!
- 有没有办法得到调用DELPHI做OLE程序的名字或进程?
- 刚下载了---圣斗士的冥王篇---但是没有字幕,我现在有字幕文件,请问怎么加上字幕呢?UP给分!!!
- 100分:请问如何使html中不换行的文本自动换行?(内详)
- 在程序中怎样是http://www.csdn.net还是ftp://ftp.csdn.net
- 用什么方法看懂国外的DELPHI网站,用什么翻译系统,推荐几种??
- 如何获得一个不定字符长度的字符串中的一个字符,如最后一个。
当机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;