Имитатор.

← →
PARUS © (2006-02-06 20:46) [0]

Как с имитировать нажатие кнопки Prt Sc SysRq (не залепляя жвачкой)?

← →
Uncle Archi © (2006-02-06 20:54) [1]

PARUS © (06.02.06 20:46)
Тебе нужен эффект нажатия или само нажатие? картинку рабочего стола в данный момент или реакцию программ на нажатие ? если первое, то:

function TForm1.CaptureScreen(Rec: TRect): TBitmap; const NumColors = 256; var R: TRect; C: TCanvas; LP: PLogPalette; Size: Integer; img: TImage; begin img := TImage.Create(Self); img.Width := rec.Right - rec.Left; img.Height := rec.Bottom - rec.Top; R := Rec; C := TCanvas.Create; C.Handle := GetDC(HWND_DESKTOP); try Img.Canvas.CopyRect(Rect(0, 0, Rec.Right - Rec.Left, Rec.Bottom - Rec.Top), C, R); Size := SizeOf(TLogPalette) + (Pred(NumColors) * SizeOf(TPaletteEntry)); LP := AllocMem(Size); try LP^.palVersion := $300; LP^.palNumEntries := NumColors; GetSystemPaletteEntries(C.Handle, 0, NumColors, LP^.palPalEntry); Img.Picture.Bitmap.Palette := CreatePalette(LP^); finally FreeMem(LP, Size); end finally ReleaseDC(HWND_DESKTOP, C.Handle); C.Free; end; Result := TBitmap.Create; Result.Assign(img.Picture.Bitmap); img.Free; end;

← →
PARUS © (2006-02-06 21:15) [2]

>>Uncle Archi © (06.02.06 20:54) [1]
>>Тебе нужен эффект нажатия или само нажатие?
Эффект через дельфи.

← →
API (2006-02-06 21:29) [3]

Как с имитировать нажатие кнопки Prt Sc SysRq (не залепляя жвачкой)?

Подоткнуть спичкой.

← →
Uncle Archi © (2006-02-06 21:37) [4]

PARUS © (06.02.06 21:15) [2]
Эффект через дельфи.
Картинку ? я тебя не понимаю... или событие в системе сродное нажатию клавиши. если картинку, я уже ответил, насчёт второго - не знаю. хоть что-то где-то и видел. возможно это. но как - не знаю.

← →
PARUS © (2006-02-07 09:44) [5]

Системно нажать эту клавишу.

ПОЛУЧИЛОСЬ!СПАСИБО!!!

PARUS © (07.02.06 13:03) [6]
ПОЛУЧИЛОСЬ!СПАСИБО!!!
опять не понял... ты использовал тот код в [1] или что-то своё? если что-то своё, выложи плиз.

Имитатор. Найти похожие ветки