谁都会遇到的拨号问题...(200分)

本人急需如何在delphi中控制WIN98拨号服务器的允许拨入和不允许拨入?
NT下如何解决?基本的要求就是程序启动允许拨入,关闭后设为不允许拨入.

98下：
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=224844
把其中放在registry的/.../run种的程序自己调用就可以了。

温柔一刀:
请你赶快告诉我如何 Kill "RNAAPP.EXE" 吧? 否则我明天就得下岗!

具体方法一句话说不清楚，大致如下，请自己调试一下：

var
ProcessSnap: THandle;
ProcessEntry32: TProcessEntry32;
More: Boolean;

begin
try
ProcessSnap := CreateToolhelp32Snapshot(TH32CS_SNAPProcess,
GetCurrentProcessID);
if ProcessSnap = -1 then Exit;
ProcessEntry32.dwSize := SizeOf(ProcessEntry32);
More := Process32First(ProcessSnap, ProcessEntry32);
while More do
begin
if pos('RNAAPP',strpas(ProcessEntry32.szExeFile))>0 then TerminateProcess(ProcessEntry32.th32ProcessID);
More := Process32Next(ProcessSnap, ProcessEntry32);
end;
finally
CloseHandle(ProcessSnap);
end;
end;

主要是CreateToolhelp32Snapshot的用法，在本论坛及Internet上能找到很多。
注意，与前面我所说的一样，此方法只在win98下应用。

谢谢!