Сообщение для смены каталога
Select messages from
# through # FAQ
[/[Print]\]

Total Commander -> Написание плагинов для Total Commander

#1: Сообщение для смены каталога Author: SanikLocation: Киев, Укаина PostPosted: Mon Jul 11, 2005 16:53
    —
Никак не могу заставить Total сменить каталог.
Делаю это так:

procedure TForm1.Button1Click(Sender: TObject);
var
aCopyData: TCopyDataStruct;
hTargetWnd: HWND;
begin
with aCopyData do
begin
dwData := 0;
cbData := StrLen(PChar(Edit1.Text)) + 1;
lpData := PChar(Edit1.Text);
end;
hTargetWnd := FindWindow('TTOTAL_CMD', nil);
if hTargetWnd <> 0 then
sendmessage(hTargetWnd, WM_COPYDATA, Longint(Handle), Longint(@aCopyData))
else
ShowMessage('Total Commander не найден');
end;

Может надо еще что-то добавить?

#2:  Author: VNavigator PostPosted: Sun Feb 26, 2006 23:14
    —
Чтото я никак не пойму, как работает такая штука:
Code:

function FsExecuteFile (MainWin : thandle; RemoteName, Verb : PChar) : integer; stdcall;
var
  quotestr:string;
  CommandStr:string;
begin
  ...
  if Pos('quote ',Verb)>0 then begin
    QuoteStr:=Copy(Verb,7,MaxInt);
    CommandStr:=AnsiUpperCase(Copy(QuoteStr,1,Pos(' ',QuoteStr)-1));
    if (CommandStr='MD') or (CommandStr='MKDIR') then
      fsMkDir(PAnsiChar(RemoteName+Copy(QuoteStr,Pos(' ',QuoteStr)+1,MaxInt)));
    if (CommandStr='CD') or (CommandStr='CHDIR') then begin
      Result := FS_EXEC_SYMLINK;
      RemoteName:=PChar(RemoteName+Copy(QuoteStr,Pos(' ',QuoteStr)+1,MaxInt)+'\');
    end;
  end;
  ...
end;

Почему по команде CHDIR он не переходит в эту папку, которая задается после команды? В хелпе написано что, такая комбинация должна это делать... Плиз жду ответа.

#3:  Author: VNavigator PostPosted: Mon Feb 27, 2006 03:12
    —
Все нашел решение:
Эту строку
Code:

RemoteName:=PChar(RemoteName+Copy(QuoteStr,Pos(' ',QuoteStr)+1,MaxInt)+'\');

надо заменить на эту
Code:

RemoteName:=StrPCopy(RemoteName,RemoteName+Copy(QuoteStr,Pos(' ',QuoteStr)+1,MaxInt)+'\');

Что-то мудрит компилятор Делфи с преобразованием типов ????



Total Commander -> Написание плагинов для Total Commander


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Page 1 of 1

Powered by phpBB © 2001, 2005 phpBB Group