怎样用delphi编写一个在线发送邮件的程序 usewindows，messages，winsock，sysutil{$R*.RESconstCRLF13#10exename：pchar='邮箱信使'varthd：array[1.1000]of integertid：array[1.1000]of dwordfaint，hMutex，mcount，speed，newtime，oldtime，umcount，err：integerstringuf：array[0.1024]of chardest：stringattstart：booleawClass：TWndClass；窗口类变量Msg：TMSG；消息变量hInst，/程序实例Handle，/主窗口句柄hFont，/字体句柄hButtoStart，/开始按钮hButtoto停止按钮hButtonHelp，/帮助按钮hButtonExit，/退出按钮hEditEmaile-mailhEditCount，/次数编辑hEditThread，/线程数编辑hLabelEmaile-mail提示hLabelCount，/次数提示hLabelThread，/线程数提示hLabelInfo/领息提示integer；句柄类型往一个窗口写标题rocedure WriteCaption(hwnd：hwnd；text：pchar)；begin sendmessage(hwnd，WM_SETTEXT，0，integer(text))；end从一个窗口读标题rocedure ReadCaption(hwnd：hwnd；text：pchar)；begin sendmessage(hwnd，WM_GETTEXT，400，integer(text))；end以下是网络连接的过程function StartNet(host：string；port：integer)：integervarwsadatatwsadatafsocket：integerSockAddrIn：TSockAddrI。
如何解决delphi编写的遍历进程程序一直遍历进程造成内存过高 应该是你的代码有内存泄露导致的，看看你是否在循环中Create了对象而没有手动Free掉
Delphi 编写了一个程式，叫起其它一个程式后，想把被叫起的程式隐藏起来，不知道怎么实现？望高手指点！ 如果是控制台程序还可以其他的好像不太容易做到
