حذف کردن دکمه پرینت اسکرین

[h_mohamadi]

سلام بر دوستان خوب
من یک برنامه دارم که پرینت آن با فست ریپورت است و من می خواهم که موقعی که پیش نمایش پرینت در حال نشان دادن است کاربر نتواند از آن هیچ مستندی تهیه کند به این خاطر من امکان پرینت را در این برنامه بسته ام فقط این می ماند که کاربر از صفحه پرینت اسکرین بگیرد و آن را در برنامه paint یک فایل عکسی بسازد و پرینت بگیرد.
می خواستم بدانم از چه دستورری استفاده کنم ک نتواند این کار را انجام دهد؟

[Felony]

کد زیر رو براتون نوشتم ، وقتی فکوس روی برنامه خودتون باشه اگر دکمه Print Screen فشار داده بشه حافظه موقت رو خالی میکنه :


procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);
begin
if GetAsyncKeyState(VK_SNAPSHOT) <> 0 then
if Clipboard.HasFormat(CF_Picture) then
Clipboard.Clear;
Done := True;
end;

کد زیر رو هم در رویداد OnCreate فرمتون بنویسید :

Application.OnIdle := Form1.AppIdle;
--------------------
کد زیر رو براتون نوشتم ، وقتی فکوس روی برنامه خودتون باشه اگر دکمه Print Screen فشار داده بشه حافظه موقت رو خالی میکنه :


procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);
begin
if GetAsyncKeyState(VK_SNAPSHOT) <> 0 then
if Clipboard.HasFormat(CF_Picture) then
Clipboard.Clear;
Done := True;
end;

کد زیر رو هم در رویداد OnCreate فرمتون بنویسید :

Application.OnIdle := Form1.AppIdle;

اگر میخواین وقتی فوکوس روی برنامه خودتون هم نبود این کار انجام بشه باید کلیدهای صفحه کلید رو به صورت Global هوک کنید ، همین کلمه هوک رو در سایت جست و جو کنید .

[esmit61]

خوب برنامه های زیادی هستند که مبتنی بر کلید print screen نیستند. مثلاً snipping tool
در کل فکر نکنم راهی وجود داشته باشه

[devil00x]

البته یک روش غیر مهندسیش اینه که وقتی وارد صفحه پیش نمایش شد تو یه تایمر مدام بیای Clipboard.Clear; رو اجرا کنی.
حالا چرا میخای همچین کاری و انجام بدی؟

[MohsenB]

یه راه آسون و زیرکانه بردن فرم گزارش به حالت آلفابلیند هستش
البته این حالت تو ویندوز ایکس پی عمل می کنه و فرم تو حالت آلفا تو عکس نمیفته .

[صابر طهماسبی]

اگه بخوای کلا جلوی سرقت اطلاعات رو بگیری امکان پذیر نیست چون فرضا اگه به طور کلی در کامپیوتر این امکان وجود نداشته باشد طرف می تونه از مانیتور با دوربین عکس بگیره!

[h_mohamadi]

ممنونم از راهنمايي دوستان
ولي عکس از مانيتور ديگر مستندي با کيفيت نيست. و من به نتيجه رسيدم با کمک آقاي مجتبی تاجیک (http://barnamenevis.org/forum/member.php?u=63881)

[h_mohamadi]

کد زیر رو براتون نوشتم ، وقتی فکوس روی برنامه خودتون باشه اگر دکمه Print Screen فشار داده بشه حافظه موقت رو خالی میکنه :


procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);
begin
if GetAsyncKeyState(VK_SNAPSHOT) <> 0 then
if Clipboard.HasFormat(CF_Picture) then
Clipboard.Clear;
Done := True;
end;کد زیر رو هم در رویداد OnCreate فرمتون بنویسید :

Application.OnIdle := Form1.AppIdle;--------------------
کد زیر رو براتون نوشتم ، وقتی فکوس روی برنامه خودتون باشه اگر دکمه Print Screen فشار داده بشه حافظه موقت رو خالی میکنه :


procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);
begin
if GetAsyncKeyState(VK_SNAPSHOT) <> 0 then
if Clipboard.HasFormat(CF_Picture) then
Clipboard.Clear;
Done := True;
end;کد زیر رو هم در رویداد OnCreate فرمتون بنویسید :

Application.OnIdle := Form1.AppIdle;اگر میخواین وقتی فوکوس روی برنامه خودتون هم نبود این کار انجام بشه باید کلیدهای صفحه کلید رو به صورت Global هوک کنید ، همین کلمه هوک رو در سایت جست و جو کنید .

با تشکر اين رويدادي که نوشته ايد را کجا بايد بگذارم و آيا بايد يونيتي را در uses فرم بگذارم؟؟؟

[h_mohamadi]

کسی به ما کمک نمی کند؟؟؟؟؟؟؟؟!!!!!!

[SAASTN]

با تشکر اين رويدادي که نوشته ايد را کجا بايد بگذارم و آيا بايد يونيتي را در uses فرم بگذارم؟؟؟
همه چیز رو که توضیح دادند. مشکل چیه؟
تنها چیز دیگه ای که باید اضافه بکنید:
procedure AppIdle(Sender: TObject; var Done: Boolean);
این خط رو باید به تعریف کلاس Form1 اضافه بکنید و توی همون یونیت هم باقی مسائل...

[h_mohamadi]

دوستان به خط زیر گیر می دهد
if Clipboard.HasFormat(CF_Picture) then Clipboard.Clear;
کلمه
Clipboard را نمی شناسد


خواهشن کمک کنید

[Felony]

دوستان به خط زیر گیر می دهد
if Clipboard.HasFormat(CF_Picture) then Clipboard.Clear;
کلمه
Clipboard را نمی شناسد


خواهشن کمک کنید

کتابخانه Clipbrd رو به Uses اضافه کنید .

[h_mohamadi]

خیلی از دوستان ممنونم فقط محبت کنید همیشه کامل راهنمایی فرمائید که مثل من مبتدی هم کارش راه افتد