Форум: "Сети";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
ВнизКак можно из дельфи включать подключение к инету и отключать через прокси??? Найти похожие ветки
← →
[N\A] (2001-09-02 23:41) [18]procedure KillByName(FileName:String);
var
c1: THandle;
th: THandle;
lb: LongBool;
pe: TProcessEntry32;
s: String;
begin
try
if TestToolhelpFunctions then begin
c1:=CreateToolHelp32Snapshot(TH32CS_SnapProcess,0);
try
pe.dwSize:=sizeOf(pe);
if Process32First(c1,pe) then
repeat
s:=pe.szExeFile;
if StrComp(PChar(UpperCase(filename)),PChar(UpperCase(ExtractFileName(s))))=0 then begin
th := OpenProcess(PROCESS_TERMINATE,lb,pe.th32ProcessID);
TerminateProcess(th,0);
end;
until not Process32Next(c1,pe);
finally CloseHandle(c1) end;
end;
except end;
end;
function WindowProc(Wnd: HWnd; Message, WParam: Word; LParam: Longint): Longint; export; stdcall;
begin
case Message of
WM_TIMER : if WParam = 1 then
// if INET_ON <> TRUE then
KillByName("iexplore.exe");
WM_CLOSE : ExitProc;
WM_DESTROY : ExitProc;
end;
WindowProc := DefWindowProc(Wnd, Message, WParam, LParam);
end;
это в начало
const
AppClassName = "IE_Kill_Class";
INET_ON : Boolean = TRUE;
вешаешь таймер при создании окна
SetTimer(hMain,1,1000,nil);
все! IE открываться не будет...
можно также добавить процедуры и принимать сообщения от главного компа что то типа on или off ...по сети (а как клиент можно использовать telnet)
все, что могу тебе предложить в качестве кода...остальное только за $ =)
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c