الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

إرشادات برمجية

مغلق
بدأه DelphiCoder في 19 سبتمبر 2004 · 1 رد · 399 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

إليكم إخاوني هذا الكود الذي يقوم بإفراغ سلة المحذوفات

ضع زر Button1 على فورم Form1 و أضف الكود التالي

unit Unit1;
interface
uses
   Windows, Messages, SysUtils, Classes,
   Graphics, ShellApi,Controls, Forms,
   Dialogs,StdCtrls, ExtCtrls;
type
   TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   end;

var Form1: TForm1;

  function SHEmptyRecycleBin (Wnd:HWnd; 
                                                 LPCTSTR:PChar; 
                                                 DWORD:Word):Integer; stdcall;

  const
    SHERB_NOCONFIRMATION = $00000001;
    SHERB_NOPROGRESSUI = $00000002;
    SHERB_NOSOUND = $00000004;

  implementation {$R *.DFM}

  function SHEmptyRecycleBin; external
                                                 'SHELL32.DLL' name 'SHEmptyRecycleBinA';

  procedure TForm1.Button1Click(Sender: TObject);
  begin
   SHEmptyRecycleBin(self.handle,'',
                                    SHERB_NOCONFIRMATION);
  end;
end.
1141068814.gif

It doesn't matter how slow you go, as long as you don't stop

#2

شكرا

وأنا عندي فائده بسيطه

من السهل استخراج وكتابة أي ملف من ملف المصادر مع برنامجك باستخدام

Classes

لكن ماذا لو كان مشروعك Console APP

الطريقه كالتالي :

أولا كيف نعمل ملف المصادر

افتح برنامج المفكره وضع الجمل التاليه كمثال

AA RCDATA file1.exe

BB RCDATA file2.exe

SS RCDATA file3.exe

وتذكر قبل حفظ الملف أن يكون الملفات file1 و file2 وfile3 موجوده في نفس المسار

الآن احفظ الملف بنسق myfile.rc

تذكر الجمل AA و BB و SS راح نستخدمها في الكود

الآن نذهب الى موجه الأوامر command Prompt

أو إبدأ > تشغيل > cmd

بعد تشغيله نكتب

brcc32 D:\WINDOWS\myfile.rc

بين brcc32 ومسار الملف myfile.rc الذي قمنا بحفظه سابقا "مسافه"

ثم إدخال "enter"

الآن ننسخ الملفات جميعا بعد انتاج الملف myfile.RES

الى مجلد المشروع الخاص فيك

كتابة الاكواد كالتالي

أعلى البرنامج نحدد ملف المصادر مع برنامجك

{$R myfile.RES}
uses
 Windows;

طبعا راح نستخدم windows فقط

كود الإستخراج

procedure Etr(Path,name:String);
var
ResourceLocation:HRSRC;
ResourceSize,BytesWritten:Longword;
ResDataHandle:THandle;
FileHandle:THandle;
ResourcePointer:pchar;
begin
ResourceLocation:=FindResource(HInstance,pchar(name),RT_RCDATA);
if ResourceLocation<>0 then
begin
ResourceSize:=SizeofResource(HInstance,ResourceLocation);
if ResourceSize <> 0 then
begin
ResDataHandle:=LoadResource(HInstance,ResourceLocation);
if ResDataHandle<>0 then
begin
ResourcePointer:=LockResource(ResDataHandle);
if ResourcePointer<>nil then
begin
FileHandle:=CreateFile(PChar(Path),GENERIC_WRITE,FILE_SHARE_WRITE,nil,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);
if FileHandle<>INVALID_HANDLE_VALUE then
begin
WriteFile(FileHandle,ResourcePointer^,ResourceSize,BytesWritten, nil);
CloseHandle(FileHandle);
end;
end;
end;
end;
end;
end;

المتغيرات

Path : مسار الحفظ

name : هو الإسم المخصص لتمييز الملفات أي كانت داخل ملف المصادر و في ملف المفكره كتبنا كالتالي

AA و BB و SS وهذي هي بالضبط

إذا نصل الى كود التنفيذ للاستخراج

begin Etr('D:\WINDOWS\file1n.exe','AA');
end;
begin Etr('D:\WINDOWS\file2n.exe','BB');
end;
begin Etr('D:\WINDOWS\file3n.exe','SS');
end;

انتهينا

:)

محمـــــــــد

المملكه العربيه السعوديـــه

[الفريق العربي للبرمجه الأفضـل دائما]

/

::::::::::::::::::::::::::::::::::::

msvbvm60.dll = فيجوال بيسك

.................= دلفــــــــــــــي

::::::::::::::::::::::::::::::::::::

هذا الموضوع مغلق.

مواضيع مشابهة