Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];

Вниз

Копирование   Найти похожие ветки 

 
Opera   (2003-02-27 16:40) [0]

Помогите с кодом...
Чтобы программа копировала сама себя например в папку windows


 
Opera   (2003-02-27 17:07) [1]

Что???
Ч Т О ?
Никто не знает?


 
DVE   (2003-02-27 17:19) [2]

НИкто не отвечает!!!

HELP почитай

procedure TForm1.Save1Click(Sender: TObject);

var
NewFileName: string;
Msg: string;
NewFile: TFileStream;
OldFile: TFileStream;
begin
NewFileName := ExtractFilePath(Application.ExeName) + ExtractFileName(Edit1.Text);
Msg := Format("Copy %s to %s?", [Edit1.Text, NewFileName]);
if MessageDlg(Msg, mtConfirmation, mbOKCancel, 0) = mrOK then
begin
OldFile := TFileStream.Create(Edit1.Text, fmOpenRead or fmShareDenyWrite);
try
NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead);

try
NewFile.CopyFrom(OldFile, OldFile.Size);
finally
FreeAndNil(NewFile);
end;
finally
FreeAndNil(OldFile);
end;
end;

end;


 
Roma   (2003-02-27 17:38) [3]

>Opera © (27.02.03 16:40)

uses
ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
FileOpStruct: TSHFileOpStruct;
WinDir: array [0..255] of Char;
Len: Integer;
begin
GetWindowsDirectory(WinDir, Len);
with FileOpStruct do
begin
wFunc := FO_COPY;
pFrom := PChar(Application.ExeName);
pTo := WinDir;
end; // with FileOperation do
SHFileOperation(FileOpStruct);
end; // procedure TForm1.Button1Click(Sender: TObject);



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.031 c
14-30096
asafr
2003-02-21 11:54
2003.03.10
РОССИЯ ПОДДЕРЖИТ США КАЧЕСТВЕННЫМИ ГРОБАМИ


6-29974
Anton
2003-01-21 13:53
2003.03.10
Вложения Email


14-30113
GebbelZ
2003-02-22 00:35
2003.03.10
У кого какая стипендия?


14-30070
Дмитрий К.К.
2003-02-20 07:04
2003.03.10
Именинники 20 февраля


1-29817
msoftware
2003-02-28 05:12
2003.03.10
ПОЧЕМУ ВОЗНИКАЕТ ABSTRACT ERROR???





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский