Datein kopieren/verschieben

[CazperFuture]

hallo

ich habe schon gegoogled, allerdings habe ich da nix gefunden, was mein folgendes problem löst.
p.s. habe auch schon im forum geguckt :pale:

das sit also mein code

Code:

begin
ShellFileOperation('E:\Niels\Versuche\blabla.jpg','E:\Niels\blabla.jpg', FO_MOVE);
end;

wieso kommt da diese Fehlermeldung "undeclarated identifier:'ShellFileOperation'"??
... :wiejetzt:

hab das nahc der Seite gemacht

[Flips]

..und dabei

Delphi-Quellcode:

uses ShellApi;

beachtet? ;-)

[jaenicke]

Hast du die Prozedur ShellFileOperation vielleicht unterhalb der Stelle hingeschrieben wo du sie verwendet hast? Das geht nicht, die muss dem Compiler schon vorher bekannt sein, also oberhalb stehen. Denn der geht von oben nach unten durch.

@Flips: Es geht nicht um ShFileOperation, das nicht gefunden wird. ;-)

[CazperFuture]

ich hab bei "uses" "ShellApi" beachtet :thumb:
aber i-wie gehts nicht...
hab auch nicht vorher "shellFileOperation" benutzt..

[jaenicke]

Zeig doch mal den ganzen Code, du musst die Prozedur schon von der Seite dort kopieren.

[CazperFuture]

das ist die seite guckt selber, es müsste funzen

mein code sieht halt so aus (mit shellapi):

Delphi-Quellcode:

begin
ShellFileOperation('E:\Niels\Versuche\blabla.jpg','E:\Niels\blabla.jpg', FO_MOVE);
end;

[jaenicke]

Zitat:

Zitat von CazperFuture

mein code sieht halt so aus (mit shellapi):

Und der Rest? Du musst die Prozedur wie gesagt dir natürlich kopieren. Meinst du Delphi schaut automatisch auf den ganzen Internetseiten nach gepostetem Code, den du meinen könntest mit ShellFileOperation? :mrgreen:

[CazperFuture]

ne natürlich nicht also mein gesammter code sieht so aus :

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 TForm1.BitBtn1Click(Sender: TObject);

begin
ShellFileOperation('E:\Niels\Versuche\blabla.jpg','E:\Niels\blabla.jpg', FO_MOVE);
end;


end.

[jaenicke]

Zitat:

Zitat von jaenicke

Du musst die Prozedur wie gesagt dir natürlich kopieren.

:wall: :wall: :wall:

// 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.

[CazperFuture]

erst mal VIELEN DANK
habs grade auch gemacht
dachte es reicht halt nur den "kleineren" code zu kopieren
dem ist wohl nicht
danke :thumb:

...hätte ich auch selber druaf kommen könn'