Delphi Exe dosyasının Çalıştırıldığı anda kopyalanması

[mahirR]

Delphi 8 kullanıyorum.
İsteğim Programımı çalıştırdığım anda (yani formun Create olayına) programın exe dosyasının kopyalanması..
örnek olarak Programın orjinal yeri belgelerim olsun.
ben programı çalıştırdığımda aynı programın masaüstünde deneme klasörü içerisinde bir kopyasının oluşması

Bunu nasıl yapabilirim yardım larınızı bekliyorum[/size] [/size][/b][/b]

[khanco]

bkz windows api ipuçları.

Kod: Tümünü seç

 Bir Klasördeki Dosyaları Başka Bir Klasöre Kopyalama

uses kısmına ShellApi unitini ekleyin. 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  OpStruc: TSHFileOpStruct; 
  frombuf, tobuf: Array [0..128] of Char; 
Begin 
  {The fillchars make sure the parameters are terminated by at least 
   two #0 characters, this is required since each parameter can hold 
   a list of zero-terminated strings, the extra #0 terminates the 
   list. } 
  fillChar( OpStruc, Sizeof(OpStruc), 0 ); 
  FillChar( frombuf, Sizeof(frombuf), 0 ); 
  FillChar( tobuf, Sizeof(tobuf), 0 ); 
  StrPCopy( frombuf, 'c:\deneme\*.*' ); 
  StrPCopy( tobuf, 'd:\deneme' ); 
  With OpStruc DO Begin 
    Wnd:= Handle; 
    wFunc:= FO_COPY; 
    pFrom:= @frombuf; 
    pTo:=@tobuf; 
    fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION; 
  end; 
  ShFileOperation( OpStruc ); 
end;

kendinize göre uyarlayın ister tek dosyayı isterseniz proğramın çalıştığı tüm klasörü.

[mahirR]

Kodları denedim fakat FillChar ve StrPCopy komutlarında hata oluşuyor (undeclared identifier)

İstediğim tam olarak programın, çalıştırıldığı anda kendini belirtilen dizine

yedeklemesi (belirtilen dizinde kendi kopyasını oluşturması)...

[khanco]

Üst kısımda uses a shellapi unitini ekle demiştim. ekledinmi.
eklediğinde kodların kopyalanmak için var olan bir klasör adı yazdığında hedef klasör yoksa bile kendisi açıp yazar.

StrPCopy( frombuf, 'c:\deneme\*.*' );
StrPCopy( tobuf, 'd:\deneme' );
İlk satırdaki deneme klasörü yerine kopyalanacak klasörü *.* yerine dosyanın adını yazarsan tek dosya kopyalar. ikinci satırada nereye kopyalaması gerekiyorsa o klasör yazılacak.
Bu haliyle çalıştırırsan dosya okuma hatası verir. kaynaktan okunamıyor der.
Kodlar defalarca kullanıldı. problem bildiren olmadı.

[mahirR]

TAMAM OLUŞAN HATAYI BULDUM SORUN BENLE İLGİLİYMİŞ
KODLARI ÇALIŞTIRDIM

TEŞEKKÜRLER..

[powerboss]

uses kısmı neresi oluo??

[khanco]

delphi yi çalıştırınca otomatik olan yazılan kodlarda 3 başlık oluyor. bakınız kodlar

Kod: Tümünü seç

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.
 

[powerboss]

tekrar teşekkürler gördüm bildiim bişiyi bilmemiş oluormm :D