大家好,我一直是delphi开发,,,,,最近遇到一个问题,就是delphi写的程序太大了,我想用vb写一个小程序,控制文件大小,但是delphi和VB不一样,我不知道怎么写,请大家教我几行代码,谢谢!1、程序一运行就自动执行的代码如何写啊?(delphi是写在窗口创建过程当中)2、从网上下载某个文件的代码怎么写啊?(delphi有专门的函数)3、程序不想在任务栏显示出来的代码怎么写啊!(delphi可以用函数隐藏)4、如何提取某个TXT文本文件中的文字啊?(delphi用文件变量加关联文件实现的)我因为学delphi,很容易实现了,但是做出来,有134K,关键是调用了下载函数单元,程序增加了100K左右,还是VB好,做的程序都很小!(其实懂行的人,已经看出来了,这是在求一个“下载者程序”的部份关键代码)!请大家帮个忙,在这里小弟先谢过各位前辈了!

解决方案 »

  1.   

    Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long 'api
    Private Sub Form_Load()
    main ' 开机自动执行
    End SubSub main() '下载文件
    URLDownloadToFile 0, "http://community.csdn.net/images/CSDN_logo.GIF", "c:\temp.gif", 0, 0
    End Sub
      

  2.   

    3、程序不想在任务栏显示出来的代码怎么写啊!
    -----------------
    窗体ShowInTaskbar属性设为false4、如何提取某个TXT文本文件中的文字啊?
    ------------
    Sub showtxt()
    Open "e:\1234.txt" For Input As #1
    MsgBox StrConv(InputB(LOF(1), 1), vbUnicode)
    Close #1
    End Sub