Не работает сохранение через проводник Win после активации компонента SaveDialog

[ger555]

Всем привет.

Ниже фрагмент кода:

function WindowsCopyFile(FromFile, ToDir : string) : boolean;
var F : TShFileOpStruct;
begin
  F.Wnd := 0; F.wFunc := FO_COPY;
  FromFile:=FromFile+#0; F.pFrom:=pchar(FromFile);
  ToDir:=ToDir+#0; F.pTo:=pchar(ToDir);
  F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
  result:=ShFileOperation(F) = 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if savedialog1.execute then begin 
  if not WindowsCopyFile('C:\1.txt', pchar(savedialog1.filename)) then
    ShowMessage('Copy Failed');
end;
end;

При активации компонента SaveDialog копирование через API категорически отказывается работать, причем даже если вызов функции SaveDialog1.execute осуществляется из другой процедуры где-нибудь в программе. Без SaveDialog'a файл льется на ура...

function WindowsCopyFile(FromFile, ToDir : string) : boolean;
var F : TShFileOpStruct;
begin
  F.Wnd := 0; F.wFunc := FO_COPY;
  FromFile:=FromFile+#0; F.pFrom:=pchar(FromFile);
  ToDir:=ToDir+#0; F.pTo:=pchar(ToDir);
  F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
  result:=ShFileOperation(F) = 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not WindowsCopyFile('C:\1.txt', 'С:\1\') then
    ShowMessage('Copy Failed');
end;

Предполагаю, что в буфере после этого компонента что-то остается. Можете подсказать фрагмент кода, где осуществить выбор директории для копирования можно через SaveDialog, а само копирование провести именно через проводник WIn. (Выбрал директорию, нажал кнопку и пошло копирование с отображением прогресса)

Спасибо.

______________________
Используйте тег [CODE] (кнопка [CODE] в форме сообщения) при вставке кода на форум. Подробнее в FAQ

[Serge_Bliznykov]

погодите, а как Вы через savedialog выбираете папку?

поставьте вывод сообщения:

procedure TForm1.Button1Click(Sender: TObject);
begin
if savedialog1.execute then 
  ShowMessage(savedialog1.filename);
end;

и посмотрите, что там.
Вангую, что там не директория.

[evg_m]

1.
if not WindowsCopyFile('C:\1.txt', pchar(savedialog1.filename)) then

function WindowsCopyFile(FromFile, ToDir : string) : boolean;

2. if not WindowsCopyFile('C:\1.txt', 'С:\1\') then
if not WindowsCopyFile('C:\1.txt', pchar(savedialog1.filename)) then

C:\1\1\ есть папка
saveDialog1.filename есть файл

(Выбрал директорию, нажал кнопку и пошло копирование с отображением прогресса)

нет выбрал ФАЙЛ в папке.
ExtractFileDir / ExtractFileDir

где осуществить выбор директории для копирования можно через SaveDialog,

function SelectDirectory