Var St:Array[0..255] of char;
begin
ShellExecute(Handle,'open',StrPCopy(St,'http://www.huamin.com.cn'),nil,nil,SW_SHOW);
end;
begin
ShellExecute(Handle,'open',StrPCopy(St,'http://www.huamin.com.cn'),nil,nil,SW_SHOW);
end;
调试欢乐多
sw_shownormal);