|
Вопрос # 5 415/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Нужно установить SendKeys, нашёл его в Delphi7\Info\Extras\SendKeys\sndkey32.pas , но никак не получается его установить вроде всё делаю правильно
Packade c:program files\borland\delphi7\Projects\Bpl\Package1.bpl has been installed
а куда что установил не понятно, новой дериктории нету, в старых тоже ничего нового не появилось
Подскажите пожалуйста, может сам sndkey32.pas другой надо
 |
Вопрос задал: nirlog (статус: Посетитель)
Вопрос отправлен: 16 июня 2011, 14:16
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 16; последнее сообщение — 17 июня 2011, 15:39; участников в обсуждении: 3.
|
min@y™ (статус: Доктор наук), 16 июня 2011, 14:28 [#1]:
А чо такое SendKeys?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
bugmenot (статус: 3-ий класс), 16 июня 2011, 20:37 [#2]:
Цитата (nirlog):
дериктории
Кто такая дериктория?
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
nirlog (статус: Посетитель), 16 июня 2011, 23:31 [#3]:
вы прикалываетесь?
|
|
|
min@y™ (статус: Доктор наук), 17 июня 2011, 08:16 [#4]:
Цитата (nirlog):
вы прикалываетесь?
Совсем нет. У меня, например, нету папки Delphi7\Info\Extras\.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
nirlog (статус: Посетитель), 17 июня 2011, 08:59 [#5]:
Дериктория Delphi7\Info\Extras\SendKeys\sndkey32.pas на ходится на установочном диске или как в моём случае на образе диска
|
|
|
min@y™ (статус: Доктор наук), 17 июня 2011, 09:08 [#6]:
Цитата (nirlog):
Дериктория Delphi7\Info\Extras\SendKeys\sndkey32.pas на ходится на установочном диске или как в моём случае на образе диска
Сразу не мог сказать?
Ну, посмотрел я этот модуль. Не понимаю, зачем ты пытался его куда-то устанавливать? Компонентов в нём нет никаких, только две функции и всё.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
nirlog (статус: Посетитель), 17 июня 2011, 11:50 [#7]:
мне нужно что заработал вот этот код
procedure sendKeys( SomeText: string );
var
TI: TInput;
KI: TKeybdInput;
I: Integer;
begin
TI.Itype := INPUT_KEYBOARD;
for I := 1 to Length(SomeText) do
begin
KI.wVk := Ord(UpCase(SomeText[I]));
KI.dwFlags := 0;
TI.ki := KI;
SendInput(1, TI, SizeOf(TI));
KI.dwFlags := KEYEVENTF_KEYUP;
TI.ki := KI;
SendInput(1, TI, SizeOf(TI));
sleep(10);
end;
end;
|
|
|
min@y™ (статус: Доктор наук), 17 июня 2011, 12:04 [#8]:
Цитата (nirlog):
мне нужно что заработал вот этот код
А причём тут sndkey32.pas?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 17 июня 2011, 13:15 [#10]:
Цитата (nirlog):
изначально ничего не работало, погуглил, нашёл что надо установить модуль sendkey
Тогда выкинь свою процедуру sendKeys() и воспользуйся готовой фукнцией из модуля sndkey32.pas. Для этого ничего устанавливать не надо, надо скопировать этот модуль в папку с проектом и в нужном месте в разделе uses его добавить.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
nirlog (статус: Посетитель), 17 июня 2011, 14:02 [#11]:
выдаёт ошибку
Undeclared identifier: 'SomeText'
в строке
for I := 1 to Length(SomeText) do
|
|
|
min@y™ (статус: Доктор наук), 17 июня 2011, 14:16 [#12]:
Цитата (nirlog):
выдаёт ошибку Undeclared identifier: 'SomeText' в строке for I := 1 to Length(SomeText) do
procedure sendKeys( SomeText: string ); // <--- изменил имя формального параметра?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
nirlog (статус: Посетитель), 17 июня 2011, 15:02 [#13]:
спасибо, программа запустилась, но всё равно не работает))
|
|
|
min@y™ (статус: Доктор наук), 17 июня 2011, 15:15 [#14]:
Цитата (nirlog):
спасибо, программа запустилась, но всё равно не работает))
Функцией из sndkey32.pas пользоваться пробовал?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
nirlog (статус: Посетитель), 17 июня 2011, 15:24 [#15]:
unit keys;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, sndkey32, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
TI: TInput;
KI: TKeybdInput;
I: Integer;
SomeText: string;
begin
TI.Itype := INPUT_KEYBOARD;
for I := 1 to Length(SomeText) do
begin
KI.wVk := Ord(UpCase(SomeText[I]));
KI.dwFlags := 0;
TI.ki := KI;
SendInput(1, TI, SizeOf(TI));
KI.dwFlags := KEYEVENTF_KEYUP;
TI.ki := KI;
SendInput(1, TI, SizeOf(TI));
sleep(1000);
end;
end;
end.
получилась вот такая штука)) на 90% уверен что не работает из-за моей тупости()
|
|
|
min@y™ (статус: Доктор наук), 17 июня 2011, 15:39 [#16]:
Цитата (nirlog):
на 90% уверен что не работает из-за моей тупости()
А чо вероятность такая низкая?
Цитата (min@y™):
Не понимаю, зачем ты пытался его куда-то устанавливать?
Цитата (min@y™):
А причём тут sndkey32.pas?
Цитата (min@y™):
изменил имя формального параметра?
Цитата (min@y™):
Функцией из sndkey32.pas пользоваться пробовал?
Почему ты тупо игноришь мои вопросы?! Я хотел выяснить кое-какую дополнительную информацию, т.к. хотел тебе помочь. А ты, видать, не хочешь, чтобы тебе помогли.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
