كيف برمجة باتش بالدلفي

[me_delphi]

وعليكم السلام ورحمة الله تعالى و بركاته

PHP كود :

function GetResource(Handle: HMODULE; var Size: Cardinal; pSectionName: pchar): pointer;
var
  ResourceLocation: HRSRC;
  ResourceHandle: THandle;
begin
  ResourceLocation := FindResource(Handle, pSectionName, RT_RCDATA);
  Size := SizeOfResource(Handle, ResourceLocation);
  ResourceHandle := LoadResource(Handle, ResourceLocation);
  Result := LockResource(ResourceHandle);
  if Result <> nil then
    FreeResource(ResourceHandle);
end; 


اترك لك المحاولة أخي الكريم

كود :

FileS : LongInt = 2055528;

هو عملية اسناد للمتغير