Total Commander

VNavigator

Все нашел решение:
Эту строку

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

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

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

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

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

VNavigator

Чтото я никак не пойму, как работает такая штука:

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

Найдено 2 результата