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;
|