전에 a.dll로 파라미터를 넘기던것을 a.exe로 넘길려고 하는데

어찌해야하나요?



procedure TForm.AClick(Sender: TObject);

type

TViewChartEdit = procedure(const acno, indate, auserid, password:ShortString); stdcall;

var

hDll : THandle;

ptProc : Pointer;

ViewChartEdit : TViewChartEdit;

const

DLL_NAME = 'A.DLL';

FUNC_NAME = 'ViewChartEdit';

begin



hDll := LoadLibrary(DLL_NAME);

if hDll < 32 then begin

exit;

end;

try

Screen.Cursor := crHourGlass;



ptProc := GetProcAddress(hDll, FUNC_NAME);



if ptProc = nil then exit;



ViewChartEdit := TViewChartEdit(ptProc);

ViewChartEdit(파라미터1,파라미터2,파라미터3,파라미터4);



finally

FreeLibrary(hDll);

Screen.Cursor := crDefault;

end;

end;



고수님들 부탁드려요...

급하게 부탁드립니다.