VNavigator
|
 Posted: Sun Feb 26, 2006 23:14 Post subject: |
 |
|
Чтото я никак не пойму, как работает такая штука:
| 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 он не переходит в эту папку, которая задается после команды? В хелпе написано что, такая комбинация должна это делать... Плиз жду ответа. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
