如何获得客户端的打印记录,下载记录和U盘使用记录啊(50分)

  • 主题发起人 主题发起人 Yvonne00
  • 开始时间 开始时间
Y

Yvonne00

Unregistered / Unconfirmed
GUEST, unregistred user!
请问如何获得客户端的打印记录,下载记录和U盘使用记录啊 ,各位XDJM帮帮忙啊
 
有系统日志!
 
那要怎么弄,小女子不才,能不能给我相应的代码呢
 
你是要在客户端安装程序来监视记录,还是在服务器上?
 
我想在客户端安装程序来监视
 
那就不难了。。。。相关问题,这里全有。
1,用EnumJobs最简单。好一点的可以用FindFirstPrinterChangeNotification。
2,不知。我只知道如何得到IE的URL。
3,用WM_DEVICECHANGE消息或是Setup API。
 
能不能给我个例子啊,谢谢你了
 
给你个简单的吧。FindFirstPrinterChangeNotification的,我就不发了。这里全有。
procedure TPrinterStateThread_9x.Execute;
const
LastJob = 9;
var
i: Integer;
Jobs: ^TJobInfo2A;
Size, NumJobs, BytesNeeded: Cardinal;
begin
while not Terminated do
begin
{
Temp_Str := Get_Printer_State(FPrinter_HWnd);
if Temp_Str <> '' then FLabel.Caption := FPrinter_Name + ' - ' + Temp_Str;
}
EnumJobs(FPrinter_HWnd, 0, LastJob, 2, Jobs, 0, Size, NumJobs);
if Size = 0 then Continue;
GetMem(Jobs, Size);
try
if EnumJobs(FPrinter_HWnd, 0, LastJob, 2, Jobs, Size, BytesNeeded, NumJobs) then
begin
for i := 0 to NumJobs - 1 do
with Jobs^ do
begin
UpdateListView(Jobs^);
Inc(Jobs);
end;
end
else //取得打印队列出错
PostMessage(FMain_Form, WM_USER_Message, 0, GetLastError);
finally
Dec(Jobs, NumJobs);
FreeMem(Jobs);
end;
end;
WinSpool.ClosePrinter(FPrinter_HWnd);
end;
 
接受答案了.
 
后退
顶部