请教:把下列的vb中的代码用在delphi中,该如何改?

Name 'C:\Inetpub\wwwroot\wm\Global.asa' As 'C:\Inetpub\wwwroot\wm\Global.asa.BACKUP'
    
    Open "C:\Inetpub\wwwroot\wm\Global.asa" For Output As #1
        Print #1,
        Print #1, "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">"
        Print #1, "<HTML><HEAD>"
        Print #1, "<META content=""text/html; charset=unicode"" http-equiv=Content-Type>"
        Print #1, "<SCRIPT LANGUAGE=VBScript RUNAT=""Server"">"
        Print #1,
        Print #1, "Sub Application_OnStart"
        Print #1,
        Print #1, "    Application(""siteurl"")             = """ & txtProviderSite.Text & """"
        Print #1,
        Print #1, "    Application(""seed"")                = """ & vSeed & """"
        Print #1,
        Print #1, "    Application(""contentserverpubkey"") = """ & sPublicKeyV7 & """"
        Print #1,
        Print #1, "End Sub"
        Print #1,
        Print #1, "</SCRIPT>"
    Close #1
请各位大侠帮忙

解决方案 »

  1.   

    Open "C:\Inetpub\wwwroot\wm\Global.asa" For Output As #1
    应该是以写入方式打开文件，#1是文件号，将后面print的东东写到那个asa文件里。
    试试这个
    procedure TForm1.Button1Click(Sender: TObject);
    var
      FileHandle : Integer;
      sss:string;
    begin
      FileHandle:=FileOpen('c:\1.txt',fmOpenReadWrite);
      sss:='                    ';
      sss:=sss+'<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">';
      sss:=sss+'<HTML><HEAD>';
      sss:=sss+'.........';
      FileWrite(FileHandle,sss,Length(sss););
    end;