Скачать: CL | DM;

??????????   Найти похожие ветки 

← →
Svetka* ©   (2004-04-28 20:19) [0]

Удалено модератором
Примечание: Правила читаем

---

← →
Игорь Шевченко ©   (2004-04-28 20:24) [1]

> что девушке это совсем не нужно…


совсем не это нужно...

А что, мальчиков в институте не получается разжалобить ?

---

← →
Gero ©   (2004-04-28 20:25) [2]

> Необходимо создать меню в нём 2 кнопок

В стандартном меню нет кнопок.

> корневого каталога нужного диска в определённый каталог
> другого диска

Как определять какой диск нужный?

> после этого переписывать файл из корневой директории

Где взять имя файла?

Я бы тебе написал, но у меня в Delphi проект открытый, а закрывать-открывать снова влом.

---

← →
Svetka* ©   (2004-04-28 20:35) [3]

Я сделала форму с кнопками, а как, например, из C:\ переписать в D:\rrr\ (при нажатии) не знаю...

---

← →
Svetka* ©   (2004-04-28 20:37) [4]

файл любой

---

← →
Gero ©   (2004-04-28 20:46) [5]

Переписать - CopyFile, DeleteFile
При нажатии - Button.OnClick

---

← →
YurikGl ©   (2004-04-28 20:48) [6]

Svetka* ©
E-mail: mpm@inbox.ru
Лучше попроси, что-бы тебе решение на мыло отослали, а то заблокируют тебя админы.

---

← →
Svetka* ©   (2004-04-28 20:54) [7]

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   Button1: TButton;
   Button2: TButton;
   Button3: TButton;
   procedure Button3Click(Sender: TObject);
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
А ЧТО ТУТ ПИСАТЬ? // Тут нужно переписать файл 1.txt из C:\ на D:\rrr\

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
А ЧТО ТУТ ПИСАТЬ? //А тут нужно что-бы случайное число получалось и создавалась папка с именем этого числа, в которую писался всё тот же файл...
end;

end.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c