Total Commander :: Сообщение для смены каталога

through

[^/[Print]\]

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

#1: Сообщение для смены каталога Author: Sanik, Location: Киев, Укаина

Posted: 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,

Posted: 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,

Posted: 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