有几个自称delphi高手的，看到这个简单问题后，就上吊了

Question

我不是搞Delphi得。
1. 我不会。
2. 不要太简单啊。将每行每列的内容读出来，在存到文件中，太简单了。

Answer 1

保存listview的内容：
var
  I:Integer;
  F1: TextFile;
  S:String;
begin
  if OpenDialog1.Execute then begin
    AssignFile(F1, OpenDialog1.Filename);
    ReWrite(F1);
    For I:=0 to ListView1.Items.Count-1 do
    Begin
      S:=ListView1.items[i].Caption;
        Write(F1, S);
      end;
    CloseFile(F1);
  end;

Answer 2

还好我也不去高手//haihai，看来还是不当高手的好，免得突然死亡。

Answer 3

我只回答第一个问题，看你给多少分：
1 NewWindow2的在接口中定义的原形：
procedure NewWindow2(Sender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);2 通过传递一个WebBrowser的控制借口给ppDisp可以让新网页在指定的Wb中浏览
ppDisp:=WebBrowser1.Browser.ControlInterface;3 在刚才传递的WebBrowser的OnBeforeNavigate2事件中就可以获得将要打开的
URL了！我不上吊！

Answer 4

我只回答第一个问题！
1 在WebBrowser的接口中是这样定义NewWindow2的
procedure NewWindow2(Sender: TObject; var ppDisp: IDispatch;
      var Cancel: WordBool);2 把一个WebBrowser的控制接口传递给ppDisp,可以在指定的Wb中浏览
ppDisp：=WebBrowser2.Browser.ControlInterface3 在WebBrowser2的OnBeforeNavigate2事件中判断即将访问的URL

Answer 5

第二个问题太简单了，看来来这里的人都好像很少用到流的东西或是记录型文件了
你可以先定义一个记录
TFileRecord=record
  Caption:string[50];
  SubString:string[200];
//长度以可以存下你的数据为准
end;var
 i:integer;
 FileContent:TFileRecord;
 M:TMemoryStream;
 m:=TmemoryStream.Create;
for i:=0 to LIstView1.Items.count-1 do
begin
  FileCOnten.Caption:=ListView1.Items[i].Caption;
  FileCOntent.SubString:=ListView1.Items[i].SubString.Text;
  M.Wrie(FileCOnten,SizeOf(TFileRecord);
end;
M.savetofile(文件名');
m.free;

Answer 6

错，
真是没高手，第1个问题还要打开另1个web才可以得到地址。我还要去监视第2个web第2个问题回答的人更笨，可以直接定义内存流来保留任何vcl构件，不过，这2个问题我现在都解决了

Answer 7

有1个exe文件，如何知道它是不是nt下的服务？（lk2000）
这个问题有没有人比我先解决？