копирование файла

[zmeyy]

Вопрос такой: мне надо сделать чтоб в opendialog выбираешь картинку и в savedialog или типо того выбираешь папку и картинка туда должна скопироваться или в нужное место

[zmeyy]

Мне нужно наподобе сделать вот так Пример чтоб выбираешь картинку, а потом нажимаешь применить и выбираешь место куда она дожна быть скопирована и заодно если кто знает там должно при нажатии кнопки применить выполняться 2 действия: копироваться картинка и сохраняться файл с именем desktop.ini с нужным текстом. Как это сделать одним нажатием, а то мне постоянно приходиться при сохранении писать сохранить как desktop.ini

[mutabor]

if SaveDialog1.Execute then begin
  //тут ваш код сохранения (имя файла в SaveDialog1.FileName)
end;

p.s. Какой вопрос, такой и ответ.

[zmeyy]

что значит "Какой вопрос, такой и ответ."

[zmeyy]

Кто-нибудь может ответить? Пример программы я привел мне нужно сделать наподобие

[zmeyy]

вот код

procedure TForm1.Button1Click(Sender: TObject);
begin
If OpenDialog1.Execute Then
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
Begin
Edit1.Text:=OpenDialog1.FileName;
S:=TStringList.Create;
S.Clear;
S.Add('[{BE098140-A513-11D0-A3A4-00C04FD706EC}]');
S.Add('Attributes=1');
S.Add('IconArea_Image='+Edit1.Text);
S.Add('IconArea_Text=0x00000000');
S.Add('IconArea_TextBackground=0x00FFFFFF');
S.Add('[.ShellClassInfo]');
S.Add('InfoTip=http://files-x.ru/');
S.Add('[ExtShellFolderViews]');
S.Add('{BE098140-A513-11D0-A3A4-00C04FD706EC}={BE098140-A513-11D0-A3A4-00C04FD706EC}');
S.Add('{5984FFE0-28D4-11CF-AE66-08002B2E1262}={5984FFE0-28D4-11CF-AE66-08002B2E1262}');
End;
end;

procedure TForm1.Button2Click(Sender: TObject);
Begin
If SaveDialog1.Execute Then
Begin
S.SaveToFile(SaveDialog1.FileName);//Сохраняйте файл под именем desktop.ini
End;
end;
end.

[uberchel]

Сообщение от zmeyy

Вопрос такой: мне надо сделать чтоб в opendialog выбираешь картинку и в savedialog или типо того выбираешь папку и картинка туда должна скопироваться или в нужное место

Вот! строго по вопросу...

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenPictureDialog1.Filter:=
  GraphicFilter(TBitMap)+'|'+
  GraphicFilter(TJpegImage);
  if OpenPictureDialog1.Execute
then
  if OpenPictureDialog1.FilterIndex = 1
then with SavePictureDialog1 do begin
   FileName:= FileName + '.bmp';
   Filter:= GraphicFilter(TBitMap)
end else with SavePictureDialog1 do begin
   FileName:= FileName + '.jpg';
   Filter:= GraphicFilter(TJpegImage);
end else Exit;
  if SavePictureDialog1.Execute
then
  CopyFile(pchar(OpenPictureDialog1.FileName),
  pchar(SavePictureDialog1.FileName),True);
end;