Total Commander

Код: Выделить всё

// Cтруктура отображенного в память файла - как создать и юзать 
набери в поисковике - CreateFileMapping и MapViewOfFile
  PMainData = ^TMainData;
  TMainData = record
  MainForm:HWND;
  ....
  ....
end;

...
var
DMainData:PMainData; // Глобальная (!!!!) переменная 
wc : TWndClass;
I:Integer = 0

function ListLoad(ParentWin: HWND;  FileToLoad: pchar;  ShowFlags: integer): HWND; stdcall;
var
  WndClass: array [0..255] of Char;
begin
 Result := 0;
 GetClassName(GetParent(ParentWin), WndClass, SizeOf(WndClass));

 if not (WndClass <> 'TTOTAL_CMD') then Exit; //С QuiqView такой фокас не прокатит

if not (.... выполняем проверку - подходит файл млм нет...) then Exit;

 if DMainData^.MainForm = 0 then
 begin
 DMainData^.MainForm:=CreateMyPluginWindow// Твой плагин
 if DMainData^.MainForm = 0 then Exit;
 end
 else
 begin
 I:=SendMessage(DMainData^.MainForm,WM_MAINCOMMAND,MYCMD,0);
 if I = 0 then Exit; // Сообщкние окну плагина о новом файле, можно WM_COPYDATA, можно что-то свое - главное передать имя файла.
 end;

 Result :=CallKiller(ParentWin);
 if Result = 0 then Exit;
 SetWindowPos(ParentWin,0,-100,-100,0,0,SWP_HIDEWINDOW);// Убираем с глаз-долой листер
end;

и "само убийство"

function WindowProc(wnd:HWND; Msg : Integer; Wparam:Wparam; Lparam:Lparam):Lresult; stdcall;
var
 Style:Longint;
 LW:HWND;
Begin
LW:=GetParent(wnd);
          PostMessage(LW,WM_KEYDOWN, 27, 0);
          Result := DefWindowProc(wnd,msg,wparam,lparam);
End;



function CallKiller(aListerWindow:HWND):HWND;
begin
result:=CreateWindowEx(WS_EX_CONTROLPARENT,'LISTER_KILLER','LISTER_KILLER',WS_CHILD or WS_VISIBLE or WS_CLIPSIBLINGS
                                          ,0,0,10,10,aListerWindow,0,Hinstance,nil);

end;


exports
....
begin
....
  WC.lpfnWndProc     := @WindowProc;
  WC.style           := CS_VREDRAW or CS_HREDRAW;
  WC.hInstance       := hInstance;
  WC.hIcon           := 0;
  WC.hCursor         := LoadCursor(0,IDC_ARROW);
  WC.hbrBackground   := CreateSolidBrush( COLOR_BTNFACE+1 );
  WC.lpszMenuName    := nil;
  WC.cbClsExtra      := 0;
  WC.cbWndExtra      := 0;
  wc.lpszClassName   := 'LIST_KILL';
 Windows.RegisterClass(wc);


...

end.

Код: Выделить всё

 if DMainData^.MainForm = 0 then
  begin
   DMainData^.MainForm:=CreateViewer(ParentWin, FileToLoad);
   if DMainData^.MainForm = 0 then Exit;
  end
 else
  begin
   I:=SendMessage(DMainData^.MainForm,WM_COPYDATA,0,0);
   if I = 0 then Exit;
  end;