??????????

← →
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

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.

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