Datei 1 mit Datei 2 ersetzen

[Hobby-Programmierer]

Danke für den Link! Ich muss dann wohl selber lesen wenn du dat nicht für mich testest
Mir ist gerade aufgefallen das alle '....Ex' Funktionen in meiner Hilfe fehlen

LG Mario

[QuickAndDirty]

Im Menü:
Hilfe-> Windows SDK
Dort auf das Register "INDEX"
und dann eintippen was du suchst.

Wenn du das nicht findest, ich hätte hier Netviewer,
dann könnte ich dich fernwarten und es für dich demonstrieren.^^

[Hobby-Programmierer]

Klaro, ich Depp hatte in der Delphi-Hilfe statt im SDK gesucht.
Danke

[Gonzo85]

Komm leider nicht weiter ...

Ich weiß nicht wie ich noch was an deinem Code ändern muss damit er Datei 2 in einen Zwischenspeicher setzt ihn zu Dtei 1 bennent und ihn dann ersetzt.

mfg

[DeddyH]

Wir haben Dir doch schon alles vorgekaut. Wo hapert es denn nun noch?

[Gonzo85]

Das erste worans hapert ist das Delphi sich über den begriff "const" beschwert..

Das zweite ist ich versuchs immer wie ich denke mit den Vorausgetellten Codes, jedoch kriege ich des einfach nicht fertig.

Wenn einer von euch Zeit und Lust hätte könnte er mir es mit Teamviewer per Fernwartung Demonstireren sowas wäre echt klasse.

mfg

[Hobby-Programmierer]

Tach ...,
ok - dann ändere die Konstanten in Variablen um.

Zitat von Hobby-Programmierer:

Delphi-Quellcode:

const alteDatei = 'c:\alterName.txt';
      neueDatei = 'c:\neuerName.txt';
begin
  if Umbenennen(alterName, neuerName) then
    ShowMessage('erfolgreich');
end;

ändern wir einfach in

Delphi-Quellcode:

var alteDatei, neueDatei: TFileName;
begin
  alteDatei:= 'c:\alterName.txt';
  neueDatei:= 'c:\neuerName.txt'
  if Umbenennen(alteDatei, neueDatei) then
    ShowMessage('erfolgreich');
end;

Natürlich nicht vergessen Detlefs Funktion anzupassen! function Umbenennen(OldName, NewName: string): Boolean; Anmerkung: Diese Funktion funktioniert nur innerhalb eines LW (Adminrechte vorausgesetzt). Solltest du nicht als Admin arbeiten nimm einfach ein anderes Test-LW

[Macci]

Hi Gonzo85,

ersetze in deinem Code einfach das hier:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject); 
begin 

end;

durch dieses hier:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject); 
begin 
if not CopyFile(PChar(Edit2.Text), PChar(Edit1.Text), False) then
   Application.MessageBox('Die Datei konnte nicht kopiert werden.', 'Fehler' ,
    MB_ICONSTOP);
end;

Funktioniert auch über Laufwerksgrenzen hinweg.

Viele Grüsse,
Macci

[DeddyH]

Delphi-Quellcode:

function Umbenennen(const OldName, NewName: string): Boolean;
begin
  Result := MoveFileEx(PAnsiChar(OldName),PAnsiChar(NewName),MOVEFILE_REPLACE_EXISTING or MOVEFILE_COPY_ALLOWED);
end;

Das soll laut MSDN auch über Laufwerksgrenzen hinweg funktionieren.