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

CD ROM   Найти похожие ветки 

← →
VIB   (2002-03-14 10:30) [0]

Как програмно отлавливать все попытки обращения к CD.
Например если кто-то обращается к CD то выдать сообщение.

---

← →
dim- ©   (2002-03-14 12:13) [1]

если к СД обращаются по сети с др. машины можно отлавливать подключение к твоему ПК:
unit getUser;

interface
uses Windows, SysUtils,Classes;

//, Messages, Graphics, Controls, StdCtrls

type
TSessionInfo50 = packed record
Sesi50_cname:PChar;
Sesi50_username:PChar;
sesi50_key:Cardinal;
sesi50_num_conns:word;
sesi50_num_opens:word;
sesi50_time:Cardinal;
sesi50_idle_time:Cardinal;
sesi50_protocol:byte;
pad1:byte;
end;
function NetSessionEnum (SrverName:PChar;sLevel:dword; pbBuffer:pointer; cbBuffer:dword;EntriesRead,TotalAvial:pointer):integer; stdcall; external "svrapi.dll";
procedure GetJoiInTo(var GetPC,GetUser,GetFile:tstringlist);

implementation

procedure GetJoiInTo(var GetPC,GetUser,GetFile:tstringlist);
var
SessionInfo: array [0..512] of TSessionInfo50;
EntriesRead,TotalAvial: Word;
i:integer;

begin
NetSessionEnum (nil,50,@SessionInfo,SizeOf(SessionInfo),@EntriesRead,@TotalAvial);
GetPC.Clear;
GetUser.Clear;
GetFile.Clear;
for i:=0 to EntriesRead-1 do
with SessionInfo[i] do
begin
GetPC.Add (string(Sesi50_cname));
GetUser.Add (string(Sesi50_username));
GetFile.Add (IntTostr(sesi50_num_opens));
end;
if getpc.Count<1 then
begin
GetPC.Add ("Активных пользователей нет");
//GetUser.Add ("");
//GetFile.Add ("");
end;
end;

end.

---

Страницы: 1 вся ветка

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



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