Witam.. Mam taki napisany program:
unit Bot;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,sndkey32, ExtCtrls, ComCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
Timer1: TTimer;
GroupBox1: TGroupBox;
Label2: TLabel;
Label3: TLabel;
StatusBar1: TStatusBar;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
x : integer;
op:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Caption = 'Wlacz' then
begin
if Edit1.Text = '' then Application.MessageBox('Wpisz nazwę procesu', 'Brak nazwy', 0)
else
begin
Timer1.Enabled := True;
Button1.Caption := 'Wylacz';
Edit1.Enabled := False;
StatusBar1.SimpleText := ' Bot: Włączony';
end;
end
else
if Edit1.Text = '' then Application.MessageBox('Wpisz nazwę procesu', 'Brak nazwy', 0) else
begin
Timer1.Enabled := False;
Button1.Caption := 'Wlacz';
Edit1.Enabled := True;
StatusBar1.SimpleText := ' Bot: Wyłączony';
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
proces : HWND;
begin
//proces := FindWindow(PChar(Edit1.Text), nil);
proces := FindWindow('MozillaContentWindowClass',nil);
if proces = 0 then Application.MessageBox('Uchwyt Pusty', 'Blad', 0) else
begin
//EditH := FindWindowEx(proces, 0, 'Edit', nil);
SendMessage(proces, WM_CHAR, VK_SPACE, 0);
end;
end;
end.
Ale niestety mam problem. Jak zrobic zeby pobieralo po nazwie procesu a nie uchwytu : (