эмуляция нажатия CTRL-ALT-DEL

← →
denis_ka (2002-01-07 00:24) [0]

с помощью sendkeys не получается, вообще-то надо показать окошко со списком задач - у меня друг инвалид, а эмулятор клавы такой возможности нет.

← →
Ally (2002-01-08 17:08) [1]

unit main;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
procedure BuildList;
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

function EnumerateWnds(Handle: HWND; lParam: Pointer): BOOL; stdcall;
var
Text: array [0..256] of Char;
begin
if (Handle <> Application.Handle) and
(IsWindowVisible(Handle)) and
(GetWindow(Handle, GW_OWNER) = 0) and
(GetWindowText(Handle, Text, SizeOf(Text)) <> 0) then
Form1.ListBox1.Items.AddObject(nil, StrPas(Text), TObject(Handle));

Result:= True;
end;

procedure TForm1.BuildList;
{ построение списка задач }
begin
ListBox1.Items.Clear;
EnumWindows(@EnumerateWnds, 0);
ListBox1.ItemIndex := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
BuildList;
end;

procedure TForm1.Button2Click(Sender: TObject);

procedure Terminate(WndText: PChar);
{ Процедура, завершающая работу выбранного приложения }
var
WH, // - хэндл окна
PH: HWND; // - хэндл процесса
lpdwProcessId: LPDWORD;// - идентификатор процесса
begin

{ Получение хэндла окна }
WH := FindWindow(nil, WndText); // - хэндл окна

{ Получение хэндла процесса по хэндлу окна }
GetWindowThreadProcessID(WH, @lpdwProcessId);
PH := OpenProcess(PROCESS_ALL_ACCESS, FALSE, lpdwProcessId); // - хэндл процесса

{ Уничтожение процесса по его хэндлу }
TerminateProcess(PH, 4);
end;

begin
Terminate(PChar(Listbox1.Items.Strings[Listbox1.ItemIndex]));
BuildList;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
BuildList;
end;

end.

эмуляция нажатия CTRL-ALT-DEL Найти похожие ветки