BoozZzilla
21-09-2010, 17:01
Здравствуйте все.
Суть - мне нужно сделать программулину которая будет распечатывать штрихкод по данным забитым в неких полях. Заковыка - я абсолютно не знаю с чего начинать. Есть ничтожные знания Delphi. Есть программа для печати штрихкодов - настроенная для печати серий этикеток. И есть предположение что можно перехватить управление этой программой, и забить в нужные поля нужные значения.
Копать как я понял нужно в сторону Win API, но ничего не получается, получилось тока открыть шаблон штрихкода.
Прошу показать что можно почитать по теме вопроса, и желательно попроще.
Если в кратце опишете какими API функциями я смогу воспользоваться (по теме опять же) буду чрезвычайно благодарен. Работу с меню, может с кнопками другого приложения..
upd...
Подскажите, почему вот это мне даёт ноль в TEdit2?
procedure TForm1.Button2Click(Sender: TObject);
begin
Handle1:=FindWindow(nil,'LabelShop Start v.8 - 1');
Edit1.Text:=IntToStr(Handle1);
MenuHND:=GetMenu(Handle1);
Edit2.Text:=IntToStr(MenuHND);
end;
меню в программе есть, но ноль означает что нет меню... непонятно
Суть - мне нужно сделать программулину которая будет распечатывать штрихкод по данным забитым в неких полях. Заковыка - я абсолютно не знаю с чего начинать. Есть ничтожные знания Delphi. Есть программа для печати штрихкодов - настроенная для печати серий этикеток. И есть предположение что можно перехватить управление этой программой, и забить в нужные поля нужные значения.
Копать как я понял нужно в сторону Win API, но ничего не получается, получилось тока открыть шаблон штрихкода.
Прошу показать что можно почитать по теме вопроса, и желательно попроще.
Если в кратце опишете какими API функциями я смогу воспользоваться (по теме опять же) буду чрезвычайно благодарен. Работу с меню, может с кнопками другого приложения..
upd...
Подскажите, почему вот это мне даёт ноль в TEdit2?
procedure TForm1.Button2Click(Sender: TObject);
begin
Handle1:=FindWindow(nil,'LabelShop Start v.8 - 1');
Edit1.Text:=IntToStr(Handle1);
MenuHND:=GetMenu(Handle1);
Edit2.Text:=IntToStr(MenuHND);
end;
меню в программе есть, но ноль означает что нет меню... непонятно