delphi 如何实现网站刷IP的操作
delphi 如何实现网站刷IP的操作
var
Form1: TForm1;
Nid:integer ;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.Execute then
memo1.Lines.LoadfromFile(opendialog1.FileName);
begin
if memo1.Lines[0]='' then
showmessage('请添加代理地址')
else
button3.Click;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate(edit1.Text);
application.ProcessMessages;
end;
procedure TForm1.Button4Click(Sender: TObject);
var reg: Tregistry;
begin
timer1.Enabled:=false;
if edit1.Text <> '' then
begin//注册表添加代理地址
button3.Click;
webbrowser1.Navigate(edit1.Text);
application.ProcessMessages;
reg:=Tregistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER;
if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', True) then
begin
reg.Writestring('ProxyServer', edit2.Text);
reg.WriteInteger('ProxyEnable', 1 );
end
finally
reg.CloseKey;
reg.free;
timer1.Interval:=strtoint(edit3.Text);
timer1.Enabled:=true;
end;
end
else
b
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
Delphi
怎样获取网页部分内容（代码），并且显示出来！
（只是网页里面的一部分内容并不是全部）
没弄懂！
类似websever的功能？
估计是利用ie的接口。。。。。。。。
是类似websever的功能 ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
