19-06-2011, 09:39 PM
خرجت بهذا الكود
والان نحن في مشكلة التحويل الى دلفي
اعتقد :
1-تحميل الملف
2- تؤشر على العنوان (البوابه)
3- تنفيذ عملية ما
4- خطف الناتج
5- اكمال الكود برمجيا مستفيد من نتائج الروتين
والان نحن في مشكلة التحويل الى دلفي
اعتقد :
1-تحميل الملف
2- تؤشر على العنوان (البوابه)
3- تنفيذ عملية ما
4- خطف الناتج
5- اكمال الكود برمجيا مستفيد من نتائج الروتين
PHP كود :
#define WIN32_LEAN_AND_MEAN
#include <windows.h>
#include "resource.h"
#define PROC_CAST void (__stdcall * )(char*, char*)
HINSTANCE hInst;
BOOL CALLBACK DialogProc(HWND hwndDlg, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
HINSTANCE hLib;
char BufferName[256];
char Serial[256];
void (__stdcall *myProc)(char*, char*) = 0; // هنا تضع البروتوتايب تبع الدالة كيفنا كانت
switch (uMsg)
{
case WM_CLOSE:
EndDialog(hwndDlg, 0);
return TRUE;
case WM_COMMAND:
switch (LOWORD(wParam))
{
case ID_OK:
{
GetDlgItemText(hwndDlg,ID_NAME,BufferName,32);
hLib = LoadLibrary("ether.dll");
myProc = (PROC_CAST) GetProcAddress(hLib,"reg_code");
if (myProc =t= NULL)
return FALSE;
myProc(BufferName, Serial);
SetDlgItemText(hwndDlg,ID_SERIAL,Serial);
FreeLibrary(hLib);
}
return TRUE;
}
}
return FALSE;
}
int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nShowCmd)
{
hInst = hInstance;
return DialogBox(hInstance, MAKEINTRESOURCE(DLG_MAIN), NULL, DialogProc);

