freepascal.ru

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

function FileOperation(s:string;Action:integer):boolean;
var
    SHFO: TSHFileOpStruct;
begin
    ZeroMemory(@shfo, SizeOf(shfo));
  with SHFO do begin
    wnd := Application.MainFormHandle;
    wFunc := Action; // fo_delete;
    pFrom := PChar(s+#0);
    pTo := nil;
    fFlags := FOF_ALLOWUNDO ;
  end;
  Result := SHFileOperation(SHFO)=0;
end;       


Лекс Айрин писал(а):Скорее всего, опять проблема с кодировками.

Ism писал(а):Зачем вообще такие извращения, если в fpc для этого есть штатные средства ?

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

DeleteFileUTF8


Alexx2000 писал(а):

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

DeleteFileUTF8


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

function mbDeleteToTrash(const FileName: String): Boolean;
var
  wsFileName: WideString;
  FileOp: TSHFileOpStructW;
  dwFileAttributes: LongWord;
begin
  wsFileName:= UTF8Decode(FileName);
  wsFileName:= wsFileName + #0;
  FillChar(FileOp, SizeOf(FileOp), 0);
  FileOp.Wnd := Application.MainFormHandle;
  FileOp.wFunc := FO_DELETE;
  FileOp.pFrom := PWideChar(wsFileName);
  // Move without question
  FileOp.fFlags := FOF_ALLOWUNDO or FOF_NOERRORUI or FOF_SILENT or FOF_NOCONFIRMATION;
  Result := (SHFileOperationW(@FileOp) = 0) and (not FileOp.fAnyOperationsAborted);
end;


Alexx2000 писал(а):Так в чем проблема то? Если конкретно интересует SHFileOperation то, вот пример (удаление в корзину):

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

function mbDeleteToTrash(const FileName: String): Boolean;
var
  wsFileName: WideString;
  FileOp: TSHFileOpStructW;
  dwFileAttributes: LongWord;
begin
  wsFileName:= UTF8Decode(FileName);
  wsFileName:= wsFileName + #0;
  FillChar(FileOp, SizeOf(FileOp), 0);
  FileOp.Wnd := Application.MainFormHandle;
  FileOp.wFunc := FO_DELETE;
  FileOp.pFrom := PWideChar(wsFileName);
  // Move without question
  FileOp.fFlags := FOF_ALLOWUNDO or FOF_NOERRORUI or FOF_SILENT or FOF_NOCONFIRMATION;
  Result := (SHFileOperationW(@FileOp) = 0) and (not FileOp.fAnyOperationsAborted);
end;