<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0" xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/">
	<channel>
		<title><![CDATA[الفريق العربي للهندسة العكسية - البرمجة بلغة باسكال و الدلفي - Pascal & Delphi]]></title>
		<link>https://www.at4re.net/f/</link>
		<description><![CDATA[الفريق العربي للهندسة العكسية - https://www.at4re.net/f]]></description>
		<pubDate>Fri, 01 May 2026 06:35:34 +0000</pubDate>
		<generator>MyBB</generator>
		<item>
			<title><![CDATA[Scroll Text Project]]></title>
			<link>https://www.at4re.net/f/thread-5086.html</link>
			<pubDate>Mon, 16 Mar 2026 17:31:28 +0000</pubDate>
			<dc:creator><![CDATA[<a href="https://www.at4re.net/f/member.php?action=profile&uid=4783">Str0x</a>]]></dc:creator>
			<guid isPermaLink="false">https://www.at4re.net/f/thread-5086.html</guid>
			<description><![CDATA[<div style="text-align: center;" class="mycode_align"><img src="https://i.imgur.com/pTXQVln.gif" loading="lazy"  alt="[صورة مرفقة: pTXQVln.gif]" class="mycode_img" /></div><br /><!-- start: postbit_attachments_attachment -->
<br /><!-- start: attachment_icon -->
<img src="https://www.at4re.net/f/images/attachtypes/rar.png" title="RAR File" border="0" alt=".rar" />
<!-- end: attachment_icon -->&nbsp;&nbsp;<a href="attachment.php?aid=3570" target="_blank" title="">Scroll Text.rar</a> (الحجم : 156.16 KB / التحميلات : 2)
<!-- end: postbit_attachments_attachment -->]]></description>
			<content:encoded><![CDATA[<div style="text-align: center;" class="mycode_align"><img src="https://i.imgur.com/pTXQVln.gif" loading="lazy"  alt="[صورة مرفقة: pTXQVln.gif]" class="mycode_img" /></div><br /><!-- start: postbit_attachments_attachment -->
<br /><!-- start: attachment_icon -->
<img src="https://www.at4re.net/f/images/attachtypes/rar.png" title="RAR File" border="0" alt=".rar" />
<!-- end: attachment_icon -->&nbsp;&nbsp;<a href="attachment.php?aid=3570" target="_blank" title="">Scroll Text.rar</a> (الحجم : 156.16 KB / التحميلات : 2)
<!-- end: postbit_attachments_attachment -->]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[ديلفي الاصدار القديم]]></title>
			<link>https://www.at4re.net/f/thread-5042.html</link>
			<pubDate>Sun, 08 Feb 2026 22:27:48 +0000</pubDate>
			<dc:creator><![CDATA[<a href="https://www.at4re.net/f/member.php?action=profile&uid=6583">stup00</a>]]></dc:creator>
			<guid isPermaLink="false">https://www.at4re.net/f/thread-5042.html</guid>
			<description><![CDATA[بحثت عن الاصدار ديلفي 7 لكن لم اجده اذا في حد يعرف من اين اجده شكراء]]></description>
			<content:encoded><![CDATA[بحثت عن الاصدار ديلفي 7 لكن لم اجده اذا في حد يعرف من اين اجده شكراء]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[Free Pascal v3.2.2 x86-x64]]></title>
			<link>https://www.at4re.net/f/thread-4891.html</link>
			<pubDate>Fri, 05 Dec 2025 15:27:42 +0000</pubDate>
			<dc:creator><![CDATA[<a href="https://www.at4re.net/f/member.php?action=profile&uid=4783">Str0x</a>]]></dc:creator>
			<guid isPermaLink="false">https://www.at4re.net/f/thread-4891.html</guid>
			<description><![CDATA[<div style="text-align: center;" class="mycode_align"><span style="font-size: x-large;" class="mycode_size"><span style="font-weight: bold;" class="mycode_b">Free Pascal v3.2.2 x86-x64</span></span><br />
</div>
<div style="text-align: center;" class="mycode_align"><img src="https://www.freepascal.org/pic/logo.gif" loading="lazy"  width="133" height="63" alt="[صورة مرفقة: logo.gif]" class="mycode_img" /><br />
<br />
<br />
<pre class="block-code line-numbers"><code class="language-none">Free Pascal is a mature, versatile, open source Pascal compiler. It can target many processor architectures: Intel x86 (16 and 32 bit), AMD64/x86-64, PowerPC, PowerPC64, SPARC, SPARC64, ARM, AArch64, MIPS, Motorola 68k, AVR, and the JVM. Supported operating systems include Windows (16/32/64 bit, CE, and native NT), Linux, Mac OS X/iOS/iPhoneSimulator/Darwin, FreeBSD and other BSD flavors, DOS (16 bit, or 32 bit DPMI), OS/2, AIX, Android, Haiku, Nintendo GBA/DS/Wii, AmigaOS, MorphOS, AROS, Atari TOS, and various embedded platforms. Additionally, support for RISC-V (32/64), Xtensa, and Z80 architectures, and for the LLVM compiler infrastructure is available in the development version. Additionally, the Free Pascal team maintains a transpiler for pascal to Javascript called pas2js.
</code></pre></div>
<div style="text-align: center;" class="mycode_align">
Download<br />
<pre class="block-code line-numbers"><code class="language-none">https://www.freepascal.org/download.html
</code></pre></div>]]></description>
			<content:encoded><![CDATA[<div style="text-align: center;" class="mycode_align"><span style="font-size: x-large;" class="mycode_size"><span style="font-weight: bold;" class="mycode_b">Free Pascal v3.2.2 x86-x64</span></span><br />
</div>
<div style="text-align: center;" class="mycode_align"><img src="https://www.freepascal.org/pic/logo.gif" loading="lazy"  width="133" height="63" alt="[صورة مرفقة: logo.gif]" class="mycode_img" /><br />
<br />
<br />
<pre class="block-code line-numbers"><code class="language-none">Free Pascal is a mature, versatile, open source Pascal compiler. It can target many processor architectures: Intel x86 (16 and 32 bit), AMD64/x86-64, PowerPC, PowerPC64, SPARC, SPARC64, ARM, AArch64, MIPS, Motorola 68k, AVR, and the JVM. Supported operating systems include Windows (16/32/64 bit, CE, and native NT), Linux, Mac OS X/iOS/iPhoneSimulator/Darwin, FreeBSD and other BSD flavors, DOS (16 bit, or 32 bit DPMI), OS/2, AIX, Android, Haiku, Nintendo GBA/DS/Wii, AmigaOS, MorphOS, AROS, Atari TOS, and various embedded platforms. Additionally, support for RISC-V (32/64), Xtensa, and Z80 architectures, and for the LLVM compiler infrastructure is available in the development version. Additionally, the Free Pascal team maintains a transpiler for pascal to Javascript called pas2js.
</code></pre></div>
<div style="text-align: center;" class="mycode_align">
Download<br />
<pre class="block-code line-numbers"><code class="language-none">https://www.freepascal.org/download.html
</code></pre></div>]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[x64dbg Plugin SDK (Free Pascal)]]></title>
			<link>https://www.at4re.net/f/thread-4887.html</link>
			<pubDate>Wed, 03 Dec 2025 15:09:22 +0000</pubDate>
			<dc:creator><![CDATA[<a href="https://www.at4re.net/f/member.php?action=profile&uid=4783">Str0x</a>]]></dc:creator>
			<guid isPermaLink="false">https://www.at4re.net/f/thread-4887.html</guid>
			<description><![CDATA[<div style="text-align: center;" class="mycode_align"> <br />
<pre class="block-code line-numbers"><code class="language-none">(**
*
/////////////////////////////////////////////////////////////////////////////////////////
*
* Ported from _plugins.h (x64_dbg-PluginSDK v0.10) to Unit Delphi by quygia128
* Home: http://cin1team.biz
* Blog: http://crackertool.blogspot.com (www.crackertool.tk)
* Last Edit: 06.30.2014 by quygia128
* 
* Update: https://github.com/quygia128
*
* Thanks to TQN for Delphi Coding, phpbb3 and BOB for Nice Plugin(Tools) Power By Delphi,
* all my friends at CiN1Team(ALL CIN1'S MEMBER) &amp; Other RCE Team.
* Of course thanks to Mr.eXodia author of x64_dbg, Nice Work!
*
/////////////////////////////////////////////////////////////////////////////////////////
*
* CONVERTED TO FREE PASCAL By Str0x for x64dbg Plugin Development
* Free Pascal version provides 90% smaller binaries than Delphi!
* Compile with: fpc -B -Twin32 -Pi386 Plugin.dpr  (32-bit)
*               fpc -B -Twin64 -Px86_64 Plugin.dpr (64-bit)
*
* Last Edit: 03.12.2025 by Str0x
* Home: https://www.at4re.net
*
/////////////////////////////////////////////////////////////////////////////////////////
*
**)
</code></pre><br />
<img src="https://i.imgur.com/KiCLKKk.gif" loading="lazy"  alt="[صورة مرفقة: KiCLKKk.gif]" class="mycode_img" /></div><br /><!-- start: postbit_attachments_attachment -->
<br /><!-- start: attachment_icon -->
<img src="https://www.at4re.net/f/images/attachtypes/rar.png" title="RAR File" border="0" alt=".rar" />
<!-- end: attachment_icon -->&nbsp;&nbsp;<a href="attachment.php?aid=3473" target="_blank" title="">x64dbg Plugin SDK (Free Pascal).rar</a> (الحجم : 583.95 KB / التحميلات : 1)
<!-- end: postbit_attachments_attachment -->]]></description>
			<content:encoded><![CDATA[<div style="text-align: center;" class="mycode_align"> <br />
<pre class="block-code line-numbers"><code class="language-none">(**
*
/////////////////////////////////////////////////////////////////////////////////////////
*
* Ported from _plugins.h (x64_dbg-PluginSDK v0.10) to Unit Delphi by quygia128
* Home: http://cin1team.biz
* Blog: http://crackertool.blogspot.com (www.crackertool.tk)
* Last Edit: 06.30.2014 by quygia128
* 
* Update: https://github.com/quygia128
*
* Thanks to TQN for Delphi Coding, phpbb3 and BOB for Nice Plugin(Tools) Power By Delphi,
* all my friends at CiN1Team(ALL CIN1'S MEMBER) &amp; Other RCE Team.
* Of course thanks to Mr.eXodia author of x64_dbg, Nice Work!
*
/////////////////////////////////////////////////////////////////////////////////////////
*
* CONVERTED TO FREE PASCAL By Str0x for x64dbg Plugin Development
* Free Pascal version provides 90% smaller binaries than Delphi!
* Compile with: fpc -B -Twin32 -Pi386 Plugin.dpr  (32-bit)
*               fpc -B -Twin64 -Px86_64 Plugin.dpr (64-bit)
*
* Last Edit: 03.12.2025 by Str0x
* Home: https://www.at4re.net
*
/////////////////////////////////////////////////////////////////////////////////////////
*
**)
</code></pre><br />
<img src="https://i.imgur.com/KiCLKKk.gif" loading="lazy"  alt="[صورة مرفقة: KiCLKKk.gif]" class="mycode_img" /></div><br /><!-- start: postbit_attachments_attachment -->
<br /><!-- start: attachment_icon -->
<img src="https://www.at4re.net/f/images/attachtypes/rar.png" title="RAR File" border="0" alt=".rar" />
<!-- end: attachment_icon -->&nbsp;&nbsp;<a href="attachment.php?aid=3473" target="_blank" title="">x64dbg Plugin SDK (Free Pascal).rar</a> (الحجم : 583.95 KB / التحميلات : 1)
<!-- end: postbit_attachments_attachment -->]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[Lazarus v4.4]]></title>
			<link>https://www.at4re.net/f/thread-4885.html</link>
			<pubDate>Wed, 03 Dec 2025 09:14:49 +0000</pubDate>
			<dc:creator><![CDATA[<a href="https://www.at4re.net/f/member.php?action=profile&uid=4783">Str0x</a>]]></dc:creator>
			<guid isPermaLink="false">https://www.at4re.net/f/thread-4885.html</guid>
			<description><![CDATA[<div style="text-align: center;" class="mycode_align"><img src="https://i.imgur.com/pKUQpMN.png" loading="lazy"  alt="[صورة مرفقة: pKUQpMN.png]" class="mycode_img" /><br />
 <br />
<pre class="block-code line-numbers"><code class="language-none">What is Lazarus?
Lazarus is a Delphi compatible cross-platform IDE for Rapid Application Development. It has variety of components ready for use and a graphical form designer to easily create complex graphical user interfaces.

What can it do?
You can create your own open source or commercial applications. With Lazarus you can create file browsers, image viewers, database applications, graphics editing software, games, 3D software, medical analysis software or any other type of software.

Where to learn?
Lazarus has a huge community of people supporting each other. It include scientists and students, pupils and teachers, professionals and hobbyists. Our wiki provides tutorials, documentation and ideas. Our forums and mailing-list offer a space to ask questions and talk to users and the developers.

Home:
https://www.lazarus-ide.org

SCREENSHOTS:
https://wiki.lazarus.freepascal.org/Screenshots

Download:
https://www.lazarus-ide.org/index.php?page=downloads
</code></pre></div>]]></description>
			<content:encoded><![CDATA[<div style="text-align: center;" class="mycode_align"><img src="https://i.imgur.com/pKUQpMN.png" loading="lazy"  alt="[صورة مرفقة: pKUQpMN.png]" class="mycode_img" /><br />
 <br />
<pre class="block-code line-numbers"><code class="language-none">What is Lazarus?
Lazarus is a Delphi compatible cross-platform IDE for Rapid Application Development. It has variety of components ready for use and a graphical form designer to easily create complex graphical user interfaces.

What can it do?
You can create your own open source or commercial applications. With Lazarus you can create file browsers, image viewers, database applications, graphics editing software, games, 3D software, medical analysis software or any other type of software.

Where to learn?
Lazarus has a huge community of people supporting each other. It include scientists and students, pupils and teachers, professionals and hobbyists. Our wiki provides tutorials, documentation and ideas. Our forums and mailing-list offer a space to ask questions and talk to users and the developers.

Home:
https://www.lazarus-ide.org

SCREENSHOTS:
https://wiki.lazarus.freepascal.org/Screenshots

Download:
https://www.lazarus-ide.org/index.php?page=downloads
</code></pre></div>]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[Text Effect]]></title>
			<link>https://www.at4re.net/f/thread-4792.html</link>
			<pubDate>Fri, 17 Oct 2025 10:05:59 +0000</pubDate>
			<dc:creator><![CDATA[<a href="https://www.at4re.net/f/member.php?action=profile&uid=4783">Str0x</a>]]></dc:creator>
			<guid isPermaLink="false">https://www.at4re.net/f/thread-4792.html</guid>
			<description><![CDATA[<div style="text-align: center;" class="mycode_align"><img src="https://i.imgur.com/wiMhUkf.png" loading="lazy"  alt="[صورة مرفقة: wiMhUkf.png]" class="mycode_img" /><br />
<br />
السورس بالمرفقات<br />
<br />
 <img src="https://www.at4re.net/f/images/smilies/victory.gif" alt="victory" title="victory" class="smilie smilie_38" /></div><br /><!-- start: postbit_attachments_attachment -->
<br /><!-- start: attachment_icon -->
<img src="https://www.at4re.net/f/images/attachtypes/rar.png" title="RAR File" border="0" alt=".rar" />
<!-- end: attachment_icon -->&nbsp;&nbsp;<a href="attachment.php?aid=3361" target="_blank" title="">Text Effect.rar</a> (الحجم : 161.19 KB / التحميلات : 2)
<!-- end: postbit_attachments_attachment -->]]></description>
			<content:encoded><![CDATA[<div style="text-align: center;" class="mycode_align"><img src="https://i.imgur.com/wiMhUkf.png" loading="lazy"  alt="[صورة مرفقة: wiMhUkf.png]" class="mycode_img" /><br />
<br />
السورس بالمرفقات<br />
<br />
 <img src="https://www.at4re.net/f/images/smilies/victory.gif" alt="victory" title="victory" class="smilie smilie_38" /></div><br /><!-- start: postbit_attachments_attachment -->
<br /><!-- start: attachment_icon -->
<img src="https://www.at4re.net/f/images/attachtypes/rar.png" title="RAR File" border="0" alt=".rar" />
<!-- end: attachment_icon -->&nbsp;&nbsp;<a href="attachment.php?aid=3361" target="_blank" title="">Text Effect.rar</a> (الحجم : 161.19 KB / التحميلات : 2)
<!-- end: postbit_attachments_attachment -->]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[Detecting leaks in RAD Studio 13]]></title>
			<link>https://www.at4re.net/f/thread-4746.html</link>
			<pubDate>Wed, 17 Sep 2025 18:49:16 +0000</pubDate>
			<dc:creator><![CDATA[<a href="https://www.at4re.net/f/member.php?action=profile&uid=30">MountLegacy</a>]]></dc:creator>
			<guid isPermaLink="false">https://www.at4re.net/f/thread-4746.html</guid>
			<description><![CDATA[<div style="text-align: center;" class="mycode_align"><img src="https://4.bp.blogspot.com/-8Oqr5db1Rcs/Vb4qPONXeFI/AAAAAAAABBw/9Se8EL2IHis/s1600/9_by_elminiawey-d7hd6jq.png" loading="lazy"  alt="[صورة مرفقة: 9_by_elminiawey-d7hd6jq.png]" class="mycode_img" /><br />
<br />
<br />
track down memory leaks in Delphi using Deleaker.<br />
Deleaker can be used right inside RAD Studio or as a standalone application, making it useful for debugging both test projects and real-world apps.<br />
<img src="https://static.xx.fbcdn.net/images/emoji.php/v9/t52/1/16/1f527.png" loading="lazy"  width="16" height="16" alt="[صورة مرفقة: 1f527.png]" class="mycode_img" /> Key capabilities:<br />
* Ready for RAD Studio 13<br />
* Compatible with 32-bit and 64-bit targets<br />
* Works with the latest C++Builder compiler<br />
* Finds memory, GDI, and handle leaks<br />
* Displays full details: size, type, call stack, plus object class types<br />
<img src="https://static.xx.fbcdn.net/images/emoji.php/v9/t87/1/16/1f4fa.png" loading="lazy"  width="16" height="16" alt="[صورة مرفقة: 1f4fa.png]" class="mycode_img" /> Check out the demo here:<br />
<pre class="block-code line-numbers"><code class="language-none">https://www.youtube.com/watch?v=3YDOzJ0xDao
</code></pre></div>]]></description>
			<content:encoded><![CDATA[<div style="text-align: center;" class="mycode_align"><img src="https://4.bp.blogspot.com/-8Oqr5db1Rcs/Vb4qPONXeFI/AAAAAAAABBw/9Se8EL2IHis/s1600/9_by_elminiawey-d7hd6jq.png" loading="lazy"  alt="[صورة مرفقة: 9_by_elminiawey-d7hd6jq.png]" class="mycode_img" /><br />
<br />
<br />
track down memory leaks in Delphi using Deleaker.<br />
Deleaker can be used right inside RAD Studio or as a standalone application, making it useful for debugging both test projects and real-world apps.<br />
<img src="https://static.xx.fbcdn.net/images/emoji.php/v9/t52/1/16/1f527.png" loading="lazy"  width="16" height="16" alt="[صورة مرفقة: 1f527.png]" class="mycode_img" /> Key capabilities:<br />
* Ready for RAD Studio 13<br />
* Compatible with 32-bit and 64-bit targets<br />
* Works with the latest C++Builder compiler<br />
* Finds memory, GDI, and handle leaks<br />
* Displays full details: size, type, call stack, plus object class types<br />
<img src="https://static.xx.fbcdn.net/images/emoji.php/v9/t87/1/16/1f4fa.png" loading="lazy"  width="16" height="16" alt="[صورة مرفقة: 1f4fa.png]" class="mycode_img" /> Check out the demo here:<br />
<pre class="block-code line-numbers"><code class="language-none">https://www.youtube.com/watch?v=3YDOzJ0xDao
</code></pre></div>]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[XM2PAS Converter v0.1]]></title>
			<link>https://www.at4re.net/f/thread-4729.html</link>
			<pubDate>Sat, 30 Aug 2025 08:30:30 +0000</pubDate>
			<dc:creator><![CDATA[<a href="https://www.at4re.net/f/member.php?action=profile&uid=4783">Str0x</a>]]></dc:creator>
			<guid isPermaLink="false">https://www.at4re.net/f/thread-4729.html</guid>
			<description><![CDATA[<div style="text-align: center;" class="mycode_align"><img src="https://www.at4re.net/f/images/smilies/Salam.gif" alt="Salam" title="Salam" class="smilie smilie_72" /><br />
<img src="https://i.imgur.com/FFpN4Ob.png" loading="lazy"  alt="[صورة مرفقة: FFpN4Ob.png]" class="mycode_img" /><br />
<br />
التحميل بالمرفقات</div><br /><!-- start: postbit_attachments_attachment -->
<br /><!-- start: attachment_icon -->
<img src="https://www.at4re.net/f/images/attachtypes/rar.png" title="RAR File" border="0" alt=".rar" />
<!-- end: attachment_icon -->&nbsp;&nbsp;<a href="attachment.php?aid=3319" target="_blank" title="">XM2PAS.rar</a> (الحجم : 889.8 KB / التحميلات : 3)
<!-- end: postbit_attachments_attachment -->]]></description>
			<content:encoded><![CDATA[<div style="text-align: center;" class="mycode_align"><img src="https://www.at4re.net/f/images/smilies/Salam.gif" alt="Salam" title="Salam" class="smilie smilie_72" /><br />
<img src="https://i.imgur.com/FFpN4Ob.png" loading="lazy"  alt="[صورة مرفقة: FFpN4Ob.png]" class="mycode_img" /><br />
<br />
التحميل بالمرفقات</div><br /><!-- start: postbit_attachments_attachment -->
<br /><!-- start: attachment_icon -->
<img src="https://www.at4re.net/f/images/attachtypes/rar.png" title="RAR File" border="0" alt=".rar" />
<!-- end: attachment_icon -->&nbsp;&nbsp;<a href="attachment.php?aid=3319" target="_blank" title="">XM2PAS.rar</a> (الحجم : 889.8 KB / التحميلات : 3)
<!-- end: postbit_attachments_attachment -->]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[بناء ملفات تطبيقية بحجم صغير Embarcadero Delphi 12]]></title>
			<link>https://www.at4re.net/f/thread-4680.html</link>
			<pubDate>Fri, 01 Aug 2025 07:00:27 +0000</pubDate>
			<dc:creator><![CDATA[<a href="https://www.at4re.net/f/member.php?action=profile&uid=4783">Str0x</a>]]></dc:creator>
			<guid isPermaLink="false">https://www.at4re.net/f/thread-4680.html</guid>
			<description><![CDATA[<div style="text-align: center;" class="mycode_align"><img src="https://www.at4re.net/f/images/smilies/Salam.gif" alt="Salam" title="Salam" class="smilie smilie_72" /><br />
في هذا الموضوع سنتطرق لكيفية بناء ملفات تطبيقية بحجم صغير في Delphi 12 (الإصدار الأخير)<br />
<br />
Project &gt; Options<br />
<br />
<img src="https://i.imgur.com/650WKZB.png" loading="lazy"  alt="[صورة مرفقة: 650WKZB.png]" class="mycode_img" /><br />
<br />
بالإضافة لضغط الملف التطبيقي بـ UPX بعد البناء<br />
<br />
<span style="font-weight: bold;" class="mycode_b">النتيجة:</span><br />
<br />
x32: من 12MB إلى 2MB بدون ضغط 800kb بعد الضغط<br />
x64: من 14MB إلى 4MB بدون ضغط 1MB بعد الضغط<br />
<br />
برمجة ممتعة<br />
<br />
<img src="https://www.at4re.net/f/images/smilies/victory.gif" alt="victory" title="victory" class="smilie smilie_38" /><br />
</div>]]></description>
			<content:encoded><![CDATA[<div style="text-align: center;" class="mycode_align"><img src="https://www.at4re.net/f/images/smilies/Salam.gif" alt="Salam" title="Salam" class="smilie smilie_72" /><br />
في هذا الموضوع سنتطرق لكيفية بناء ملفات تطبيقية بحجم صغير في Delphi 12 (الإصدار الأخير)<br />
<br />
Project &gt; Options<br />
<br />
<img src="https://i.imgur.com/650WKZB.png" loading="lazy"  alt="[صورة مرفقة: 650WKZB.png]" class="mycode_img" /><br />
<br />
بالإضافة لضغط الملف التطبيقي بـ UPX بعد البناء<br />
<br />
<span style="font-weight: bold;" class="mycode_b">النتيجة:</span><br />
<br />
x32: من 12MB إلى 2MB بدون ضغط 800kb بعد الضغط<br />
x64: من 14MB إلى 4MB بدون ضغط 1MB بعد الضغط<br />
<br />
برمجة ممتعة<br />
<br />
<img src="https://www.at4re.net/f/images/smilies/victory.gif" alt="victory" title="victory" class="smilie smilie_38" /><br />
</div>]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[انشاء فورم عن طريق Windows API]]></title>
			<link>https://www.at4re.net/f/thread-4677.html</link>
			<pubDate>Wed, 30 Jul 2025 20:26:12 +0000</pubDate>
			<dc:creator><![CDATA[<a href="https://www.at4re.net/f/member.php?action=profile&uid=64">TeRcO</a>]]></dc:creator>
			<guid isPermaLink="false">https://www.at4re.net/f/thread-4677.html</guid>
			<description><![CDATA[السلام عليكم<br />
(منقول) شرح متقن لكيفية انشاء فورم بالاستعانة فقط ب Windows API<br />
<br />
<img src="https://www.at4re.net/f/images/smilies/rose.gif" alt="rose" title="rose" class="smilie smilie_35" /> <img src="https://www.at4re.net/f/images/smilies/rose.gif" alt="rose" title="rose" class="smilie smilie_35" /><br /><!-- start: postbit_attachments_attachment -->
<br /><!-- start: attachment_icon -->
<img src="https://www.at4re.net/f/images/attachtypes/txt.png" title="Text Document" border="0" alt=".txt" />
<!-- end: attachment_icon -->&nbsp;&nbsp;<a href="attachment.php?aid=3275" target="_blank" title="">API_Delphi_Tutorial.txt</a> (الحجم : 73 bytes / التحميلات : 6)
<!-- end: postbit_attachments_attachment -->]]></description>
			<content:encoded><![CDATA[السلام عليكم<br />
(منقول) شرح متقن لكيفية انشاء فورم بالاستعانة فقط ب Windows API<br />
<br />
<img src="https://www.at4re.net/f/images/smilies/rose.gif" alt="rose" title="rose" class="smilie smilie_35" /> <img src="https://www.at4re.net/f/images/smilies/rose.gif" alt="rose" title="rose" class="smilie smilie_35" /><br /><!-- start: postbit_attachments_attachment -->
<br /><!-- start: attachment_icon -->
<img src="https://www.at4re.net/f/images/attachtypes/txt.png" title="Text Document" border="0" alt=".txt" />
<!-- end: attachment_icon -->&nbsp;&nbsp;<a href="attachment.php?aid=3275" target="_blank" title="">API_Delphi_Tutorial.txt</a> (الحجم : 73 bytes / التحميلات : 6)
<!-- end: postbit_attachments_attachment -->]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[Java JDK (system environment variable one-click setting tool) Delphi version source]]></title>
			<link>https://www.at4re.net/f/thread-4660.html</link>
			<pubDate>Tue, 22 Jul 2025 06:06:29 +0000</pubDate>
			<dc:creator><![CDATA[<a href="https://www.at4re.net/f/member.php?action=profile&uid=4197">Lauda937</a>]]></dc:creator>
			<guid isPermaLink="false">https://www.at4re.net/f/thread-4660.html</guid>
			<description><![CDATA[<pre class="block-code line-numbers"><code class="language-none">// Java JDK (system environment variable one-click setting tool) Delphi version source code is here

unit Unit2;
 
interface
 
uses
  Registry, Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.StdCtrls;
 
type
  TForm2 = class(TForm)
    btnSetEnv: TButton;
    btnVerify: TButton;
    edtJdkPath: TEdit;
    lblStatus: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure btnSetEnvClick(Sender: TObject);
    procedure btnVerifyClick(Sender: TObject);
  private
    function SetJavaEnvironment(const JdkPath: string): Boolean;
  public
    { Public declarations }
  end;
 
our
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
// Core function: set Java environment variables
function TForm2.SetJavaEnvironment(const JdkPath: string): Boolean;
our
  Reg: TRegistry;
  PathValue: string;
begin
  Result := False;
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
 
    // 1. Set JAVA_HOME
    if Reg.OpenKey('SYSTEM\CurrentControlSet\Control\Session Manager\Environment', True) then
    begin
      Reg.WriteString('JAVA_HOME', JdkPath);
      Reg.CloseKey;
    end;
 
    // 2. Update PATH
    if Reg.OpenKey('SYSTEM\CurrentControlSet\Control\Session Manager\Environment', False) then
    begin
      PathValue := Reg.ReadString('Path');
      if Pos(JdkPath + 'bin', PathValue) = 0 then
      begin
        PathValue := JdkPath + 'bin;' + PathValue;
        Reg.WriteString('Path', PathValue);
      end;
      Reg.CloseKey;
    end;
 
    // Broadcast environment variable change notification
    SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0, LPARAM(PChar('Environment')), SMTO_ABORTIFHUNG, 5000, nil);
 
    Result := True;
  except
    on E: Exception do
      lblStatus.Caption := 'Error:' + E.Message;
  end;
  Reg.Free;
end;
 
 
 
// Set environment variables
procedure TForm2.btnSetEnvClick(Sender: TObject);
begin
  was JdkPath: string;
  begin
    JdkPath := IncludeTrailingPathDelimiter(edtJdkPath.Text);
 
    if not DirectoryExists(JdkPath) then
    begin
      lblStatus.Caption := 'Error: JDK path does not exist! ';
      Exit;
    end;
 
    if not FileExists(JdkPath + 'bin\java.exe') then
    begin
      lblStatus.Caption := 'Error: java.exe not found';
      Exit;
    end;
 
    if SetJavaEnvironment(JdkPath) then
      lblStatus.Caption := 'Success: Environment variables have been set. Please restart the command line tool to verify.'
    else
      lblStatus.Caption := 'Error: Setting failed! ';
  end;
end;
 
// Verify Java installation
procedure TForm2.btnVerifyClick(Sender: TObject);
begin
  //winexec(PAnsiChar(AnsiString('cmd.exe /c java -version')), sw_hide);
  WinExec('cmd.exe /k java -version', SW_SHOWNORMAL);
end;
 
procedure TForm2.FormCreate(Sender: TObject);
begin
  edtJdkPath.Text := 'X:\jdk-11';
end;
 
end.</code></pre><br />
<br />
<br />
<a href="https://pastebin.com/ECbjdvNz" target="_blank" rel="noopener" class="mycode_url">https://pastebin.com/ECbjdvNz</a>]]></description>
			<content:encoded><![CDATA[<pre class="block-code line-numbers"><code class="language-none">// Java JDK (system environment variable one-click setting tool) Delphi version source code is here

unit Unit2;
 
interface
 
uses
  Registry, Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.StdCtrls;
 
type
  TForm2 = class(TForm)
    btnSetEnv: TButton;
    btnVerify: TButton;
    edtJdkPath: TEdit;
    lblStatus: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure btnSetEnvClick(Sender: TObject);
    procedure btnVerifyClick(Sender: TObject);
  private
    function SetJavaEnvironment(const JdkPath: string): Boolean;
  public
    { Public declarations }
  end;
 
our
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
// Core function: set Java environment variables
function TForm2.SetJavaEnvironment(const JdkPath: string): Boolean;
our
  Reg: TRegistry;
  PathValue: string;
begin
  Result := False;
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
 
    // 1. Set JAVA_HOME
    if Reg.OpenKey('SYSTEM\CurrentControlSet\Control\Session Manager\Environment', True) then
    begin
      Reg.WriteString('JAVA_HOME', JdkPath);
      Reg.CloseKey;
    end;
 
    // 2. Update PATH
    if Reg.OpenKey('SYSTEM\CurrentControlSet\Control\Session Manager\Environment', False) then
    begin
      PathValue := Reg.ReadString('Path');
      if Pos(JdkPath + 'bin', PathValue) = 0 then
      begin
        PathValue := JdkPath + 'bin;' + PathValue;
        Reg.WriteString('Path', PathValue);
      end;
      Reg.CloseKey;
    end;
 
    // Broadcast environment variable change notification
    SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0, LPARAM(PChar('Environment')), SMTO_ABORTIFHUNG, 5000, nil);
 
    Result := True;
  except
    on E: Exception do
      lblStatus.Caption := 'Error:' + E.Message;
  end;
  Reg.Free;
end;
 
 
 
// Set environment variables
procedure TForm2.btnSetEnvClick(Sender: TObject);
begin
  was JdkPath: string;
  begin
    JdkPath := IncludeTrailingPathDelimiter(edtJdkPath.Text);
 
    if not DirectoryExists(JdkPath) then
    begin
      lblStatus.Caption := 'Error: JDK path does not exist! ';
      Exit;
    end;
 
    if not FileExists(JdkPath + 'bin\java.exe') then
    begin
      lblStatus.Caption := 'Error: java.exe not found';
      Exit;
    end;
 
    if SetJavaEnvironment(JdkPath) then
      lblStatus.Caption := 'Success: Environment variables have been set. Please restart the command line tool to verify.'
    else
      lblStatus.Caption := 'Error: Setting failed! ';
  end;
end;
 
// Verify Java installation
procedure TForm2.btnVerifyClick(Sender: TObject);
begin
  //winexec(PAnsiChar(AnsiString('cmd.exe /c java -version')), sw_hide);
  WinExec('cmd.exe /k java -version', SW_SHOWNORMAL);
end;
 
procedure TForm2.FormCreate(Sender: TObject);
begin
  edtJdkPath.Text := 'X:\jdk-11';
end;
 
end.</code></pre><br />
<br />
<br />
<a href="https://pastebin.com/ECbjdvNz" target="_blank" rel="noopener" class="mycode_url">https://pastebin.com/ECbjdvNz</a>]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[AT4RE Icon Changer v0.1 Beta]]></title>
			<link>https://www.at4re.net/f/thread-4657.html</link>
			<pubDate>Sat, 19 Jul 2025 09:54:24 +0000</pubDate>
			<dc:creator><![CDATA[<a href="https://www.at4re.net/f/member.php?action=profile&uid=6092">N3st0r</a>]]></dc:creator>
			<guid isPermaLink="false">https://www.at4re.net/f/thread-4657.html</guid>
			<description><![CDATA[<div style="text-align: center;" class="mycode_align"><img src="https://www.at4re.net/f/images/smilies/Salam.gif" alt="Salam" title="Salam" class="smilie smilie_72" /><br />
حياكم الله جميعا...<br />
<br />
هذا سورس بسيط بدلفي 7 لتغيير أيكون ملف تنفيذي بدون أيكون<br />
<br />
السورس يحتاج  تحسين في التعامل مع الملفات التي بها أيكون...<br />
<br />
<img src="https://i.imgur.com/aAy1hLu.png" loading="lazy"  alt="[صورة مرفقة: aAy1hLu.png]" class="mycode_img" /><br />
<br />
التحميل بالمرفقات<br />
<br />
تحياتي<br />
<br />
 <img src="https://www.at4re.net/f/images/smilies/smoking.gif" alt="smoking" title="smoking" class="smilie smilie_67" /></div><br /><!-- start: postbit_attachments_attachment -->
<br /><!-- start: attachment_icon -->
<img src="https://www.at4re.net/f/images/attachtypes/rar.png" title="RAR File" border="0" alt=".rar" />
<!-- end: attachment_icon -->&nbsp;&nbsp;<a href="attachment.php?aid=3259" target="_blank" title="">ATIC.rar</a> (الحجم : 182.53 KB / التحميلات : 2)
<!-- end: postbit_attachments_attachment -->]]></description>
			<content:encoded><![CDATA[<div style="text-align: center;" class="mycode_align"><img src="https://www.at4re.net/f/images/smilies/Salam.gif" alt="Salam" title="Salam" class="smilie smilie_72" /><br />
حياكم الله جميعا...<br />
<br />
هذا سورس بسيط بدلفي 7 لتغيير أيكون ملف تنفيذي بدون أيكون<br />
<br />
السورس يحتاج  تحسين في التعامل مع الملفات التي بها أيكون...<br />
<br />
<img src="https://i.imgur.com/aAy1hLu.png" loading="lazy"  alt="[صورة مرفقة: aAy1hLu.png]" class="mycode_img" /><br />
<br />
التحميل بالمرفقات<br />
<br />
تحياتي<br />
<br />
 <img src="https://www.at4re.net/f/images/smilies/smoking.gif" alt="smoking" title="smoking" class="smilie smilie_67" /></div><br /><!-- start: postbit_attachments_attachment -->
<br /><!-- start: attachment_icon -->
<img src="https://www.at4re.net/f/images/attachtypes/rar.png" title="RAR File" border="0" alt=".rar" />
<!-- end: attachment_icon -->&nbsp;&nbsp;<a href="attachment.php?aid=3259" target="_blank" title="">ATIC.rar</a> (الحجم : 182.53 KB / التحميلات : 2)
<!-- end: postbit_attachments_attachment -->]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[PEID Alpha - Delphi Source _ Coded by Behrooz Abbassi]]></title>
			<link>https://www.at4re.net/f/thread-4652.html</link>
			<pubDate>Sun, 13 Jul 2025 22:32:05 +0000</pubDate>
			<dc:creator><![CDATA[<a href="https://www.at4re.net/f/member.php?action=profile&uid=4781">Service Manual</a>]]></dc:creator>
			<guid isPermaLink="false">https://www.at4re.net/f/thread-4652.html</guid>
			<description><![CDATA[<div style="text-align: center;" class="mycode_align">PEID Alpha - Delphi Source _ Coded by Behrooz Abbassi</div><br /><!-- start: postbit_attachments_attachment -->
<br /><!-- start: attachment_icon -->
<img src="https://www.at4re.net/f/images/attachtypes/rar.png" title="RAR File" border="0" alt=".rar" />
<!-- end: attachment_icon -->&nbsp;&nbsp;<a href="attachment.php?aid=3250" target="_blank" title="">PEID Alpha with Delphi Source.rar</a> (الحجم : 1.08 MB / التحميلات : 3)
<!-- end: postbit_attachments_attachment -->]]></description>
			<content:encoded><![CDATA[<div style="text-align: center;" class="mycode_align">PEID Alpha - Delphi Source _ Coded by Behrooz Abbassi</div><br /><!-- start: postbit_attachments_attachment -->
<br /><!-- start: attachment_icon -->
<img src="https://www.at4re.net/f/images/attachtypes/rar.png" title="RAR File" border="0" alt=".rar" />
<!-- end: attachment_icon -->&nbsp;&nbsp;<a href="attachment.php?aid=3250" target="_blank" title="">PEID Alpha with Delphi Source.rar</a> (الحجم : 1.08 MB / التحميلات : 3)
<!-- end: postbit_attachments_attachment -->]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[Simple Scanner with Source Delphi-7 by phpbb3 AoRE-Team]]></title>
			<link>https://www.at4re.net/f/thread-4651.html</link>
			<pubDate>Sun, 13 Jul 2025 22:28:01 +0000</pubDate>
			<dc:creator><![CDATA[<a href="https://www.at4re.net/f/member.php?action=profile&uid=4781">Service Manual</a>]]></dc:creator>
			<guid isPermaLink="false">https://www.at4re.net/f/thread-4651.html</guid>
			<description><![CDATA[<div style="text-align: center;" class="mycode_align">Simple Scanner with Source Delphi-7 by phpbb3 AoRE-Team</div><br /><!-- start: postbit_attachments_attachment -->
<br /><!-- start: attachment_icon -->
<img src="https://www.at4re.net/f/images/attachtypes/rar.png" title="RAR File" border="0" alt=".rar" />
<!-- end: attachment_icon -->&nbsp;&nbsp;<a href="attachment.php?aid=3249" target="_blank" title="">Simple Scanner with Source Delphi-7 by phpbb3 AoRE-Team.rar</a> (الحجم : 767.1 KB / التحميلات : 2)
<!-- end: postbit_attachments_attachment -->]]></description>
			<content:encoded><![CDATA[<div style="text-align: center;" class="mycode_align">Simple Scanner with Source Delphi-7 by phpbb3 AoRE-Team</div><br /><!-- start: postbit_attachments_attachment -->
<br /><!-- start: attachment_icon -->
<img src="https://www.at4re.net/f/images/attachtypes/rar.png" title="RAR File" border="0" alt=".rar" />
<!-- end: attachment_icon -->&nbsp;&nbsp;<a href="attachment.php?aid=3249" target="_blank" title="">Simple Scanner with Source Delphi-7 by phpbb3 AoRE-Team.rar</a> (الحجم : 767.1 KB / التحميلات : 2)
<!-- end: postbit_attachments_attachment -->]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[BruteHash v1.4 Coded by Eagle]]></title>
			<link>https://www.at4re.net/f/thread-4644.html</link>
			<pubDate>Sat, 12 Jul 2025 00:13:42 +0000</pubDate>
			<dc:creator><![CDATA[<a href="https://www.at4re.net/f/member.php?action=profile&uid=4781">Service Manual</a>]]></dc:creator>
			<guid isPermaLink="false">https://www.at4re.net/f/thread-4644.html</guid>
			<description><![CDATA[<div style="text-align: center;" class="mycode_align">BruteHash v1.4 Coded by Eagle<br />
<br />
This tools is created for brute-force attacking known password hash<br />
<br />
BruteHash uses DCPcrypt Cryptographic Component Library v2 Beta 3<br />
from David Barton, this cryptographic in dcpcrypt2 folder</div><br /><!-- start: postbit_attachments_attachment -->
<br /><!-- start: attachment_icon -->
<img src="https://www.at4re.net/f/images/attachtypes/rar.png" title="RAR File" border="0" alt=".rar" />
<!-- end: attachment_icon -->&nbsp;&nbsp;<a href="attachment.php?aid=3242" target="_blank" title="">BruteHash 1.4 + Source Code.rar</a> (الحجم : 394.82 KB / التحميلات : 2)
<!-- end: postbit_attachments_attachment -->]]></description>
			<content:encoded><![CDATA[<div style="text-align: center;" class="mycode_align">BruteHash v1.4 Coded by Eagle<br />
<br />
This tools is created for brute-force attacking known password hash<br />
<br />
BruteHash uses DCPcrypt Cryptographic Component Library v2 Beta 3<br />
from David Barton, this cryptographic in dcpcrypt2 folder</div><br /><!-- start: postbit_attachments_attachment -->
<br /><!-- start: attachment_icon -->
<img src="https://www.at4re.net/f/images/attachtypes/rar.png" title="RAR File" border="0" alt=".rar" />
<!-- end: attachment_icon -->&nbsp;&nbsp;<a href="attachment.php?aid=3242" target="_blank" title="">BruteHash 1.4 + Source Code.rar</a> (الحجم : 394.82 KB / التحميلات : 2)
<!-- end: postbit_attachments_attachment -->]]></content:encoded>
		</item>
	</channel>
</rss>