کپی برنامه

[lord_viper]

با سلام
تو برنامم یه editboxدارم با چه تابعی میتونم برنامم رو تو ادرسی که تو editboxمینویسم کپی کنم مثل setupها
با تشکر

[V60]

CopyFileA(s2,s,true);
که s , s2 از نوع pchar هستند و نشاندهنده مبدا و مقصد می باشند
مقدار edit را بریز توی یک متغیر( مثلا temp) و بعد اینجوری بنویس
[/code]s:=pchar(temp);[code]
و بگذارش در تابع البته باید چک کنی که در مقصد اون فایل نباشه , چون اگر باشد repalce نمی کند و error هم نمی گیرد :گیج:

[Delphi KDE]

uses
ShellApi;

procedure ShellFileOperation(fromFile: string; toFile: string; Flags: Integer);
var
shellinfo: TSHFileOpStructA;
begin
with shellinfo do
begin
wnd := Application.Handle;
wFunc := Flags;
pFrom := PChar(fromFile);
pTo := PChar(toFile);
end;
SHFileOperation(shellinfo);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
ShellFileOperation(Application.ExeName,edit1.text, FO_COPY);
// To Move a file: FO_MOVE
end;

[lord_viper]

با تشکر از دوستان مشکل حل شد