http://im35.gulfup.com/IloJA.swflibrary Project2;
uses
System.SysUtils,
System.Classes,
VCL.Themes,
VCL.Styles,
Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
procedure showmymain();
begin
tstylemanager.setstyle(tstylemanager.loadfromfile(extractfiledir(getmodulename(hinstance)) + '\turquoisegray.vsf'));
form2 := tform2.create(nil);
form2.showmodal;
end;
begin
showmymain;
end.
ALmuhhnad كتب :هذا عرض فلاشي سريع يعرض المشكلةهكذا أفضل .. لقد اتضحت لي الفكرة
library dsdll;
uses
ShareMem,
Winapi.Windows, Winapi.Messages,
System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms,Vcl.Dialogs,
Vcl.Themes,Vcl.Styles,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
{$R Auric.res}//Include Your Style
var
dwTemp : DWORD;
hThread :THandle;
procedure CreateDlg();
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
TStyleManager.TrySetStyle('Auric');//Set Style
Application.CreateForm(TForm1, form1);//Create Form1
Application.Run;//Run
FreeAndNil(Form1);//Destroy
end;
procedure DllMain(reason: Integer);
begin
if reason =DLL_PROCESS_ATTACH then
hThread:= CreateThread(nil,0,@CreateDlg,nil,0,dwTemp)
else if reason =DLL_PROCESS_DETACH then
begin
TerminateThread(hThread,0);// Kill Thread
ExitProcess(0);//Exit
end;
end;
begin
DllProc := DllMain;
DllMain(DLL_PROCESS_ATTACH);
end.
إقتباس :إذا كان فعلا لا تظهر لديك المشكلة ... ربما لإختلاف النظام ... !؟ .. رغم اني اضنك تملك نفس نظاميأستعمل Win7
إقتباس :ما شاء الله تبارك الله ... انت مبرمج بما تعنيه الكلمة بدون مجاملاتلا تبالغ أخي .. فمازال المشوار طويل بالنسبة لي
إقتباس :لدي سؤال عن كيفية إجادك لمكان الخطاء ... ؟ ببرنامج التنقيح Olly ؟ ام شيء آخر ؟
إقتباس :اعجبتني فكرة عمل برنامج وهمي ... ولا يخفا عليك اني فكرت بهذه الفكرة دون علمي بسبب الخطاءليس وهمي ... ليس هناك برنامج .. هناك Application تقوم بانشاء الفورم فقط
لكن كان ينقصني الاكواد التي ساكتبها لتنفيذ ذلك ...
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
إقتباس :شكراً لك اخي واستاذي SMP3 من جديد .. لا استطيع إلا ان اقول
جزاك الله خير وزادك علماً فوق علمك ووفقك لما يحبه ويرضاه
ALmuhhnad كتب :Map File ؟Map File هو ملف يحتاجه المنقح حيثما كان لعنونة و اعطاء أسماء لما يسمى Calls فالبتالي هو يساعدك في عملية التنقيح يمكنك عمل ملف Map عن طريق الدلفي بحد ذاته فقط اصغط على projects ثم Options ومن ثم اختر Linker و اختر واجهة mapFile و اختر Detailed و سيتم عنونة جميع متغيرات و ثوابت و دوال برنامجك في المنقح جربها مع Olly