حصريا :-:-( تعلم برمجة Dll بال Delphi مع الشرح )-:-:

 كود:
library DllSample;

uses
Windows, SysUtils, Classes;

procedure MsgTestOne; StdCall;
begin
MessageBox(0, 'Msg Test One', 'DllSample', MB_OK);
end;

procedure MsgTestTwo; StdCall;
begin
MessageBox(0, 'Msg Test Two', 'DllSample', MB_OK);
end;

exports
MsgTestOne, MsgTestTwo;

begin
//MessageBox(0, 'Dll Sample Loaded | Msg from Dll', 'DllSample', MB_OK);
end.

كود:
function ReturnStr(): string;

  result :='AMS4ARAB'