[Acid_Burn123]

Господа подскажите что не так в коде:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SHFolder, ShlObj;

type
  TForm1 = class(TForm)
    Button1: TButton;
    CheckBox1: TCheckBox;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}




function GetSpecialFolderPath(folder : integer) : string;
      const
      SHGFP_TYPE_CURRENT = 0;
      var
      path: array [0..MAX_PATH] of char;
begin
      if SUCCEEDED(SHGetFolderPath(0,folder,0,SHGFP_TYPE_CURRENT,@path[0])) then
      Result := path
else
      Result := '';
end;




procedure TForm1.Button1Click(Sender: TObject);
        var
        searchResult:TSearchRec;
        A:string;
begin
        if checkbox1.Checked=true then
begin
       if FindFirst(A+'\*.jpg', faAnyFile, searchResult) = 0 then
begin
repeat
       MoveFile (PAnsiChar(A+'\'+searchResult.Name),PAnsiChar(A+'\'+edit1.text+'\'+searchResult.Name));
until FindNext(searchResult) <> 0;
       FindClose(searchResult);
end;
end;

end;
end.
end;

end;
end.

файл с расширением .jpg не перемещается(в едит я задаю уже существующую папку)исправьте пожалуйста...

[M.A.D.M.A.N.]

Отформатируй, невозможно читать такую письменность.

[PhoeniX]

Код:

end;
end.
end;

end;
end.

Это что за индус писал?

[Acid_Burn123]

просто другой код вырезал этот оставил забыл убрать его окончания=)
ну так что...какие в коде ошибки естЬ???есть варианты почему не работает(т.е. не перемещает?)

[PhoeniX]

PAnsiChar
Версия Delphi какая? Если 2009+, то нужен PWideChar. Или, что более универсально (будет работать независимо от версии) - просто PChar.
И, да, если Windows Vista/7, приложение запускается от имени администратора? У пользователя есть право записи в исходную и конечную папки?

[Acid_Burn123]

Delphi 7 Windows XP SP3.Запускаеться под учеткой админа.Права есть=)