THandle

0

Nawiazujac do watku:

www.4programmers.net/forum/index.php?action=show&id=13403

Funkcja SendMessage() nie dziala :(

Chodzi mi o to, zeby majac uchwyt do okna notatnika, moj program wcisnal na nim np takie klawisze: [Lewy ALT]+[E] a pozniej [D], co w tym przypadku powoduje wklejenie daty. hmm...

Z gory THX za pomoc.

0

Można to zrobić np tak :

var
uchwyt : THandle;
tmp : string;
i : byte;
begin
uchwyt :=FindWindow( nil , 'Bez tytułu - Notatnik');*pobranie Uchwytu okna notatnika

if uchwyt&gt0 then
begin
tmp:=FormatDateTime( 'hh:nn yyyy-mm-dd' , now);
*znalezienie uchwytu edita w Notatniku
uchwyt:=FindWindowEx( uchwyt , 0 , 'Edit' , '' );
if uchwyt&gt0 then
begin
for i:=1 to length(tmp) do
SendMessage( uchwyt , WM_CHAR , Ord(tmp[i]), 0);
end;
end;
end;

Jeszcze jest kilka innych sposobów zrobienia tego ;).--Pozdrowienia Chodek ;)
Delphi 6

0

Nie chodzi mi o wklejenie daty do pola, tylko o zasymulowanie wciskania klawiszy. ;(
PS: Ten kodzik tez mi nie dziala :( .

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0