كيف اقوم بعملية لصق CTRL V برمجيا في اي برنامج

[messaad]

السلام عليكم و رحمة الله و بركاته 
 كيف اقوم بعملية لصق CTRL V  برمجيا في اي برنامج .

[أبو معاذ]

وعليكم السلام ورحمة الله وبركاته ،
أضف الوحدة ClipBrd  لقائمة Uses.

لنسخ صورة :

كود :

procedure TForm1.Copier1Click(Sender: TObject); begin Clipboard.Assign(Image1.Picture); end;

للصق صورة :

كود :

procedure TForm1.Coller1Click(Sender: TObject); begin Image1.Picture.Assign(Clipboard); end;

لنسخ نص :

كود :

procedure TForm1.Copier1Click(Sender: TObject); begin Memo1.CopyToClipboard; end;

للصق نص :

كود :

procedure TForm1.Coller1Click(Sender: TObject); begin Memo1.PasteFromClipboard; end;

[messaad]

شكرا اخي على ردك الجميل ولكن اخي اردت نسخ من MEMO و لصقه في حقل اسم المستخدم بالموقع الالكتروني مثلا في الحدث
SetCursorPos(419, Screen.Height-499); //set cursor to Start menu coordinates
mouse_event(MOUSEEVENTF_LEFTDOWN,0, 0, 0, 0); //press left button
mouse_event(MOUSEEVENTF_LEFTUP,0, 0, 0, 0); //release left button
;EDIT1.SelectAll
;EDIT1.CopyToClipboard;
فأردت لصق محتوى الحافظة في حقل الموقع
شكرا

[karika2]

طب انت ذي ما استخدمت mouse_event و SetCursorPos تقدر تستخدم keybd_event لارسال امر ctrl+v
هكذا
keybd_event(Ord(17), 0, 0, 0);
keybd_event(Ord(86), 0, 0, 0);