Otamatik kopya

[secret_boy]

Merhaba arkadaslar,asagıdaki kod form acılırken kendisini system32 ye kopyalıyor ben bunu c:\ dizinine kopyalamasını istiyorum.Ne yaptımsa c:\ dizinine kopyasını attırmayı basaramadım bana yardımcı olabilirmisiniz.simdiden tesekkurler ve iyi calısmalar

Kod: Tümünü seç

unit Unit1; 

interface 

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

type 
  TForm1 = class(TForm) 
    procedure FormCreate(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 
    
  S32Klasoru : Array[0..144] of char; 
implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  GetSystemDirectory(S32Klasoru, sizeof(S32Klasoru)); 
if fileexists(PChar(S32Klasoru + '\Project1.exe')) then 
Abort 
else 
CopyFile(PChar(Application.Exename), (PChar(S32Klasoru + '\Project1.exe')), True); 
end; 

end.

[fahrettin]

Kopyalamaktaki amacınız nedir?
Sonrasında ne olacak?

[secret_boy]

hocam aklınıza kotu birsey gelmesin ben bir demo calısması yapmaya calısıyorum.ben ilk olarak bir form actırarak o pcnin hdd numarası gibi bazı bilgilerini alıp bu exe ile kopyalayıp ana formumdan bu exedeki bilgiler ve kopyalattıgım exe duruyormu diye kontrol ettirmek amacım bu eger sakıncası yoksa tesekkurler ve iyi calısmalar

[rsimsek]

Değişik bir koruma tekniği

Kod: Tümünü seç

GetSystemDirectory(S32Klasoru, sizeof(S32Klasoru));

ile system32 yi aldırdığın komut.

Kod: Tümünü seç

if fileexists(PChar(S32Klasoru + '\Project1.exe')) then

bu kısmı;

Kod: Tümünü seç

if FileExists(PChar('c:\Project1.exe')) then

şekline getirirsen istediğin yere kaydeder PChar kullanmasan da çalışması lazım.

[secret_boy]

cok tesekkurler rsimsek hocam saolasın iyi calısmalar

[rsimsek]

Hayrını gör