reg.openkey('mailto\shell\open\command',true);
reg.writestring('',cmdline);
reg.free;
end;
使用
//setdefaultmail('e:\foxmail\foxmail.exe -t "%1" -s "%2"');
5.是否早想有个域名转换为ip地址的函数，现在我就给你一个
域名转换为ip地址:
function getipname(name: string): string;
var
wsadata: twsadata;
hostent: phostent;
begin
wsastartup(2, wsadata);
hostent := gethostbyname(pchar(name));
with hostent^ do
result := format('%d.%d.%d.%d', [byte(h_addr^[0]),
byte(h_addr^[1]), byte(h_addr^[2]), byte(h_addr^[3])]);
wsacleanup;
end;
6.编写internet软件常常会遇到检查用户输入的网址，e-mail地址等等，如何解决呢？
