Zitat von
jaenicke:
Du musst die Prozedur wie gesagt dir natürlich kopieren.
// EDIT:
Als Hilfe für das Kopieren: Es reicht nicht einen Teil eines Tipps zu kopieren. Das ist wie wenn dir jemand die Anleitung gibt wie du aus einem Brunnen Wasser holen kannst und du dann den erwähnten Eimer nicht mit herunterlässt...
Ich kanns ja kaum glauben, aber ich poste einmal noch einmal das von der verlinkten Seite, nur mit deiner
Unit...
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ShellApi;
type
TForm1 =
class(TForm)
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
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.BitBtn1Click(Sender: TObject);
begin
ShellFileOperation('
E:\Niels\Versuche\blabla.jpg','
E:\Niels\blabla.jpg', FO_MOVE);
end;
end.