|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Исправьте пожалуйста
Господа подскажите что не так в коде:
Код:
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. Последний раз редактировалось Acid_Burn123, 28.11.2011 в 14:33. |
#2
|
||||
|
||||
Отформатируй, невозможно читать такую письменность.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
||||
|
||||
Цитата:
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#4
|
||||
|
||||
просто другой код вырезал этот оставил забыл убрать его окончания=)
ну так что...какие в коде ошибки естЬ???есть варианты почему не работает(т.е. не перемещает?) Последний раз редактировалось Acid_Burn123, 28.11.2011 в 18:39. |
#5
|
||||
|
||||
PAnsiChar
Версия Delphi какая? Если 2009+, то нужен PWideChar. Или, что более универсально (будет работать независимо от версии) - просто PChar. И, да, если Windows Vista/7, приложение запускается от имени администратора? У пользователя есть право записи в исходную и конечную папки? Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#6
|
||||
|
||||
Delphi 7 Windows XP SP3.Запускаеться под учеткой админа.Права есть=)
|