Скачать: CL | DM;

Как можно из дельфи включать подключение к инету и отключать через прокси???   Найти похожие ветки 

← →
[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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c