Текущий архив: 2007.03.04;
Скачать: CL | DM;
Вниз
Ни как не могу добиться работы отфункции CPlApplet Найти похожие ветки
← →
koha © (2007-02-13 00:20) [0]Ни как не могу добиться работы отфункции.
Так-сяк пробовал ни как не могу понять как запустит функцию CPlApplet и как она должна вернуть
параметры.
Подскажите кто знает.
Вот код://...........................
Type TCPlApplet = function(hwndCPl: THandle; uMsg: DWORD;lParam1, lParam2: Longint): Longint;
Type NEWCPLINFO = packed record
dwSize: DWORD; // similar to the commdlg
dwFlags: DWORD;
dwHelpContext: DWORD; // help context to use
lData: Longint; // user defined data
hIcon: HICON; // icon to use, this is owned by CONTROL.EXE (may be deleted)
szName: array[0..31] of WideChar; // short name
szInfo: array[0..63] of WideChar; // long name (status line)
szHelpFile: array[0..127] of WideChar; // path to help file to use
end;
//.........................
procedure TFrmMain.BitBtn1Click(Sender: TObject);
Var CPLH: THandle;
PN: Pointer;
Lp: Longint;
CPlApplet: TCPlApplet;
begin
CPLH:=LoadLibrary(PChar(CurPath+"appwiz.cpl"));
if CPLH = 0 then ShowMessage("No Loaded")
else ShowMessage("CPL Loaded");
@CPlApplet:=GetProcAddress(CPLH,"CPlApplet");
if @CPlApplet = Nil then ShowMessage("Function not Find")
else ShowMessage("Function Find");
GetMem(PN,SizeOf(NEWCPLINFO));
try
CPlApplet(CPLH,8,1,PN); // - Вот собственно глючная функция
finally
FreeMemory(PN);
FreeLibrary(CPLH);
end;
end;
← →
clickmaker © (2007-02-13 09:41) [1]Type TCPlApplet = function(hwndCPl: THandle; uMsg: DWORD;lParam1, lParam2: Longint): Longint; stdcall;
← →
koha © (2007-02-13 20:42) [2]> CPlApplet(CPLH,8,1,PN); // - Вот собственно глючная функция
Проблема в том, что я не понимаю каким способом, как функция должна вернуть структуру данных, не понимаю куда указатель на структуру данных пихать.
Страницы: 1 вся ветка
Текущий архив: 2007.03.04;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.05 c
