Ciber SLasH
|
 Posted: Thu Jul 25, 2013 18:16 Post subject: |
 |
|
| MVV wrote: | | Совершенно непонятно, почему в приведенном примере программы функция ListLoad принимает лишь 2 параметра, когда у неё их 3. |
Прочёл в хэлпе "ShowFlags: You may ignore these parameters if they don't apply to your document type."
и подумал, что его можно опустить. Только сейчас допёр, что его можно игнорить в самом плагине, но в заголовке функции он должен присутствовать.
Загрузить файл в SGViewer смог, а вот при закрытии формы всё те же ошибки "память не может быть read", "run-time error".
| Code: | implementation
{$R *.dfm}
function ListLoad(parentWnd: HWND; FileToLoad: PChar; ShowFlags: integer): HWND; stdcall; external 'SGViewer.wlx';
procedure ListCloseWindow(plugWnd: HWND); stdcall; external 'SGViewer.wlx';
const
LCP_FITTOWINDOW = 2;
var
hPlug: HWND;
procedure TForm1.FormActivate(Sender: TObject);
begin
try
hPlug := ListLoad(Form1.Handle, 'D:\tmp\1.bmp', LCP_FITTOWINDOW);
finally
//
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ListCloseWindow(hPlug);
end;
end.
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
