Копирования файлив

[Shaitan63]

как заставить этот код копировать не все файлы, а только тот который выделен?

SorcPath:='D:\' ;
FileOperation(listbox1.Items,SorcPath,FO_copy)

[eoln]

Надо заменить listbox1.Items на listbox1.Items.Strings[listbox1.ItemIndex]

[Shaitan63]

Я пробовал это пошит:

[Warning] Main.pas(278): Unsafe type 'PChar'
[Warning] Main.pas(299): Unsafe type 'pFrom: PAnsiChar'
[Warning] Main.pas(299): Unsafe type 'PChar'
[Warning] Main.pas(300): Unsafe type 'pTo: PAnsiChar'
[Warning] Main.pas(300): Unsafe type 'PChar'
[Warning] Main.pas(321): Unsafe code '@ operator'
[Warning] Main.pas(322): Unsafe code '@ operator'
[Warning] Main.pas(342): Unsafe type 'PChar'
[Warning] Main.pas(346): Unsafe type 'PChar'
[Warning] Main.pas(350): Unsafe type 'PChar'
[Warning] Main.pas(354): Unsafe type 'PChar'
[Warning] Main.pas(358): Unsafe type 'PChar'
[Warning] Main.pas(362): Unsafe type 'PChar'
[Warning] Main.pas(366): Unsafe type 'PChar'
[Warning] Main.pas(370): Unsafe type 'PChar'
[Warning] Main.pas(374): Unsafe type 'PChar'
[Warning] Main.pas(378): Unsafe type 'PChar'
[Warning] Main.pas(382): Unsafe type 'PChar'
[Warning] Main.pas(386): Unsafe type 'PChar'
[Warning] Main.pas(390): Unsafe type 'PChar'
[Warning] Main.pas(394): Unsafe type 'PChar'
[Warning] Main.pas(587): Unsafe type 'PChar'
[Warning] Main.pas(592): Unsafe type 'lpBuffer: PAnsiChar'
[Warning] Main.pas(595): Unsafe type 'pszDisplayName: PAnsiChar'
[Warning] Main.pas(595): Unsafe type 'lpBuffer: PAnsiChar'
[Warning] Main.pas(596): Unsafe type 'lpszTitle: PAnsiChar'
[Warning] Main.pas(596): Unsafe type 'PChar'
[Warning] Main.pas(603): Unsafe type 'lpBuffer: PAnsiChar'
[Warning] Main.pas(604): Unsafe type 'lpBuffer: PAnsiChar'
[Warning] Main.pas(606): Unsafe type 'lpBuffer: PAnsiChar'
[Warning] Main.pas(624): Unsafe code '@ operator'
[Warning] Main.pas(625): Unsafe code '@ operator'
[Warning] Main.pas(635): Unsafe code '@ operator'
[Warning] Main.pas(636): Unsafe code '@ operator'
[Warning] Main.pas(646): Unsafe code '@ operator'
[Warning] Main.pas(647): Unsafe code '@ operator'
[Warning] Main.pas(657): Unsafe code '@ operator'
[Warning] Main.pas(658): Unsafe code '@ operator'
[Warning] Main.pas(673): Unsafe code '@ operator'
[Warning] Main.pas(684): Unsafe code '@ operator'
[Hint] Main.pas(792): Variable 'FileName' is declared but never used in 'Tform1.PlayClick'
[Warning] Main.pas(903): Unsafe code '@ operator'
[Hint] Main.pas(1224): Variable 'PD' is declared but never used in 'Tform1.ProgressBar1MouseUp'
[Warning] Main.pas(1242): Unsafe typecast of 'TObject' to 'pPlayListItem'
[Warning] Main.pas(1272): Unsafe typecast of 'TObject' to 'pPlayListItem'
[Warning] Main.pas(1309): Unsafe typecast of 'TObject' to 'pPlayListItem'
[Warning] Main.pas(1343): For loop control variable must be simple local variable
[Warning] Main.pas(1348): Unsafe typecast of 'pPlayListItem' to 'TObject'
[Warning] Main.pas(1400): For loop control variable must be simple local variable
[Warning] Main.pas(1405): Unsafe typecast of 'pPlayListItem' to 'TObject'
[Warning] Main.pas(1460): Unsafe typecast of 'pPlayListItem' to 'TObject'
[Warning] Main.pas(1488): For loop control variable must be simple local variable
[Warning] Main.pas(1492): Unsafe typecast of 'TObject' to 'pPlayListItem'
[Error] Main.pas(1551): Incompatible types: 'TStrings' and 'String'
[Fatal Error] ScreenPlayer.dpr(5): Could not compile used unit 'Main.pas'

[Stilet]

[Error] Main.pas(1551): Incompatible types: 'TStrings' and 'String'

Какой оператор находится в этой строке?

FileOperation

Это чего за процедура?

[Shaitan63]

Ой прости забыл дать код

function FileOperation(FL:TStrings;ToPath:string;Action:integer):boolean;
var SHFO: TSHFileOpStruct;
    i : integer;
    FromPath : string;
begin
  with SHFO do begin
    wnd := Application.Handle;
    wFunc := Action;
    FromPath:= '';
    for i := 0 to FL.Count-1 do begin
      FromPath:=FromPath+FL[i]+#0;
    end;
    FromPath := FromPath+#0;
    pFrom := PChar(FromPath);
    pTo := PChar(ToPath);
    fFlags := FOF_ALLOWUNDO ;
  end;
  Result := SHFileOperation(SHFO)=0;
end;

[Stilet]

Чтоб

заставить этот код копировать не все файлы, а только тот который выделен

нужно сделать примерно следующее:

FileOperation(listbox1.Items[listbox1.ItemIndex],SorcPath,FO_copy)
.................
function FileOperation(FL:String;ToPath:string;Action:integer):boolean;   
var SHFO: TSHFileOpStruct;   
    i : integer;   
    FromPath : string;   
begin   
  with SHFO do begin   
    wnd := Application.Handle;   
    wFunc := Action;   
      FromPath:=FL[i]+#0;   
    end;   
    pFrom := PChar(FromPath);   
    pTo := PChar(ToPath);   
    fFlags := FOF_ALLOWUNDO ;   
  end;   
  Result := SHFileOperation(SHFO)=0;   
end;

[Shaitan63]

неработает ругается на listbox1.ItemIndex может быть есть другой способ?

[eoln]

Объяви функцию в начале в разделе type TForm1 = class(TForm)...
function FileOperation(FL:String;ToPath:stri ng;Action:integer):boolean;

А имя самой функции поменяй на
function TForm1.FileOperation(FL:String;ToPa th:string;Action:integer):boolean;

[Shaitan63]

Я сделол всё как сказали, но неработает запускается и говорит "неправильное или слишком длинное имя".

[eoln]

Вот работает

function TForm1.FileOperation(FL:String;ToPath:string;Action:integer):boolean;
var SHFO: TSHFileOpStruct;
    FromPath : string;
    pFrom, pTo : PAnsiChar;
    fFlags: FILEOP_FLAGS;
begin
  with SHFO do begin
    wnd := Application.Handle;
    wFunc := Action;
    FromPath:=FL+#0;
    pFrom := PChar(FromPath);
    pTo := PChar(ToPath);
    fFlags := FOF_ALLOWUNDO ;
  end;
  Result := SHFileOperation(SHFO)=0;
end;