حول الذاكرة في الدلفي

استخدم الوحدة Clipbrd

ثم

Clipboard.Clear;


Clipboard.AsText:='hi';

يعطيك الف عافية

طيب اذا بدي أحمل صورة للحافظة

الكود هذا يضع صوره لسطح المكتب في الحافظه

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  j,FT,FL : integer;
implementation
uses ClipBrd;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
img : TImage;
begin
Randomize();
img := TImage.Create(self);
img.parent := Self;
img.AutoSize := True;
keybd_event(VK_SNAPSHOT,0,0,0);
sleep(1000);
img.Picture.Assign(Clipboard);
end;
end.

:)

هذا الكود يأخذ صورة من الحافظة

لا

هذا الكود يدمج صوره في الحافظه هههههه

:wub: أعتمدو شباب؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

بمزح مع الاستاذ زاهر

الكود جربته وبياخذ صوره لسطح المكتب ويضعها في الحافظه

:)

لك الله يعطيكن ألف عافية؟؟؟

اللك وللاستاذ زاهر