بسم الله الرحمن الرحيم
رايت برامج ومواقع لا تسمح لك بعمل لصق فى الموقع او البرنامج لذلك هل يوجد حل لعمل paste غيرctrl + v
واستخدم مثلاّ بدلاّ عنها ctrl+o
السلام عليكم اخي .. بالنسبة للمواقع التي لا تسمح لك بعمل النسخ و اللصق .
الخاصية مركبها بصاحب الموقع بما يسمى الهاكات اي Add-ons .
نود لسؤال المتعلق بالدلفي مع العلم اني جد مبتدأ . كفكرة متواضعة من
MainMenu1 في الخاصية . Short cut . يمكنك تغير الخاصائص . و الله اعلى و اعلم
شكراّ اخوانى على المشاركة وقد ساعدنى احد الاصدقاء
smart والحل كان عبارة أجراء للـ TWMHotKey :.
كود :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Clipbrd;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
private
id1:Integer;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
clp:TClipboard;
implementation
{$R *.dfm}
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
var
Str:string;
hFocus: hWnd;
begin
if Msg.HotKey = id1 then
begin
AttachThreadInput(GetCurrentThreadId, GetWindowThreadProcessId(GetForegroundWindow), true);
hFocus:= GetFocus;
Str:=clp.AsText;
SendMessage(hFocus, WM_PASTE , Length(Str), integer(@Str[1]));
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
const
MOD_CONTROL = 2;
VK_A = $41;
begin
clp:=TClipboard.Create;
id1 := GlobalAddAtom('Hotkey1');
RegisterHotKey(Handle,id1,MOD_CONTROL, VK_A);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnRegisterHotKey(Handle, id1);
GlobalDeleteAtom(id1);
clp.Free;
end;
end.
أذن أصبح ctrl+a = عملية اللصق :.