Yedek Alırken Hata

[loxka]

Kod: Tümünü seç

procedure TForm8.Button1Click(Sender: TObject);
var
  Yol: string;
  Kaynak: string;

begin
  if edit1.Text='' then
   begin
    Application.MessageBox('Kopyalanacak Klasörü Belirtiniz...','OtoCopy',0+16);
     edit1.SetFocus;
      exit;
    end;

   if edit2.Text='' then
    begin
     Application.MessageBox('Kopyalanacak Klasörün Nereye Kopyalacagını Belirtiniz...','OtoCopy',0+16);
      edit2.SetFocus;
       exit;
    end;
Kaynak:=Edit1.Text;
Yol:=(Edit3.Text);
copydir(Pchar(Kaynak), PChar(Yol));
if copydir(Pchar(Kaynak), PChar(Yol))then
 begin
Application.MessageBox('Kopyalama basarılı','OtoCopy',0+16);

end;

Yedekleme yapmak için kodu çalıştırdığımda copydir satırında "Undeclared İdentifier 'copydir2" hatası alıyorum. Uses kısmına SellApi ekledim ama yinede o satıra gelince sorun çıkartıyor.
Yardımlarınız için şimdiden teşekkür ederim.

[turkcanfidan]

CopyDir diye bir fonksiyon olması gerekiyor. ShellApi'de yok. Şu kod işine yarar belki:

Kod: Tümünü seç

var
  OpStruc: TSHFileOpStruct;
  frombuf, tobuf: Array [0..128] of Char;
  kaynak, hedef: string;
begin
   fillChar( OpStruc, Sizeof(OpStruc), 0 );
   FillChar( frombuf, Sizeof(frombuf), 0 );
   FillChar( tobuf, Sizeof(tobuf), 0 );
   StrPCopy( frombuf, '\ornek\*.*' ); // veya StrPCopy( frombuf, kaynak);
   StrPCopy( tobuf, 'c:\OtoCopy' );
   With OpStruc DO Begin
      Wnd:= Handle;
      wFunc:= FO_COPY;
      pFrom:= @frombuf;
      pTo:=@tobuf;
      fFlags:= FOF_NOCONFIRMATION;
      end;
   ShFileOperation( OpStruc );
   end;
end;

[loxka]

Şu an kullandığım makinede delphi yüklü değil ama en kısa zamanda deneyeceğim, cevabınız için teşekkür ederim.