Hello,
 
I am loading in some dlls into my main application and have noticed I am getting what I think is a 4k memory leak. At least according to the task manager.
 
Everytime I load an application with the following procedure I lose memory. Can anyone spot anything?
 
Cheers,
 
Matt.
 
 
type
  TStartProc = procedure(AppHandle: HWND); stdcall;
 
procedure StartProject1;
var DllHandle: HMODULE;
    StartProc: TStartProc;
begin
  DllHandle := LoadLibrary(pchar(form1.edit1.text));
  if DllHandle <> 0 then
    begin
      try
        StartProc := GetProcAddress(DllHandle, 'Start');
        if Assigned(StartProc) then
          begin
            StartProc(Application.Handle);
          end else showmessage('notassigned');
      finally
        form1.listbox1.items.add('Freeing library');
        FreeLibrary(DllHandle);
      end;
    end else showmessage('the big zero');
end;
The Rules Have Changed...Get Paid to Surf the Web!
http://www.alladvantage.com/go.asp?refid=ggz487

Reply via email to