bu delphi ile metin kutusunun içeriğini alabiliyor
bunu accesse e nasıl uyarlayabiliriz
Kod:
procedure TAnaForm.btnNot_icerikClick(Sender: TObject);
var
h:HWND;
c:array of char;
s:string;
uzunluk,i:integer;
begin
h:= strtoint(pencere.text);
if h = notkutusu.Handle then exit;
uzunluk:=SendMessage(h,WM_GETTEXTLENGTH,0,0);
SetLength(c,uzunluk+1);
s:='';
SendMessage(h,WM_GETTEXT,length(c),integer(@c[0]));
for i:=0 to length(c) do s:=s + c;
NotKutusu.Lines.Text:=s;
end;