1:

CopyFileW(PWideChar(Quelle), PWideChar('\\?\' + Ziel),false)					

1:

ForceDirectories('\\?\' + Pfad)					

1:

PWideChar(WideString(myString))					

1:
2:
3:

ForceDirectories('\\?\' + ExtractFilePath(Pfad))

CopyFileW(PWideChar(WideString(Quelle)),PWideChar(WideString('\\?\' + Ziel)),false)					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

FUNCTION ForceDirectoriesW(Dir : WideString) : Boolean;
VAR
  tmp : WideString;
  Position : Integer;
BEGIN
  Result := True;
  // Dateinamen entfernen und letzten Backslash anfügen
  Dir := ExtractFilePath(Dir);
  Dir := IncludeTrailingPathDelimiter(Dir);
  // Laufwerksbuchstaben ausschneiden
  tmp := Copy(Dir, 1, 3);
  Delete(Dir, 1, 3);

  // Bis zum letzten Verzeichnis durchgehen
  WHILE Pos('\', Dir) <> 0 DO
    BEGIN
      // Position des nächsten Backslash ermitteln
      Position := Pos('\', Dir);
      // Nächstes Verzeichnis an den Pfad hängen
      tmp := tmp + Copy(Dir, 1, Position);
      Delete(Dir, 1, Position);
      // Verzeichnis erstellen
      IF NOT DirectoryExists(tmp) THEN
        IF NOT CreateDirectoryW(PWideChar(WideString('\\?\' + tmp)), nil) THEN
          BEGIN
            Result := False;
            Exit;
          END;
    END;
END;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

path := ExtractFilePath(Application.ExeName);
.
.
.

procedure TSoundForm.BrowseClick(Sender: TObject);
var
  Endung: String;
begin
  if dlgOpen.Execute then
    begin
    NewSong := dlgOpen.FileName;
    Endung := Copy(NewSong, length(NewSong) - 2, 3);        
    if (Endung <> 'mp3') and (Endung <> 'wav') then
      begin
      ShowMessage('Das Lied muss eine mp3- oder wav-Datei sein!');  // Fehlermeldung
      BrowseClick(Button4);                                         // Man kann erneut ein Lied aussuchen
      Exit;
      end
    else
      begin
      Edit1.Text := NewSong;                                        // NewSong enthält Pfad (+Name und Endung)
      Selected := True;                                             // Button Add weiß nun, dass ein Lied ausgewählt ist
      end;
    end;
end;

procedure TSoundForm.AddClick(Sender: TObject);
var
  NewSongName: String;
  i, i2: Integer;
  Finished: Boolean;
begin
  Finished := False;
  if Selected then
    begin
    Dec(i, i);
    repeat                                                               // mit repeat...until filter ich den Pfad aus "NewSong", so dass ich am Ende nur noch den Namen (+ Endung) habe in "NewSongName"
      begin
      NewSongName := Copy(NewSong, length(NewSong) - i, 1 + i);
      if NewSongName[1] = '\' then
        begin
        NewSongName := copy(NewSongName, 2, length(NewSongName) - 1);
        Finished := True;
        end;
      Inc(i)
      end;
    until Finished;
    CopyFile(PChar(NewSong),PChar(path + 'Sounds\Background\' + NewSong), False)
    end
  else
    ShowMessage('Bitte wähle erst eine Datei aus!');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

.
.
.
  else
    begin
    SoundNamesBefore := SoundNames;
    SoundNames.Clear;
    There := False;
    FindFiles(path + 'Sounds\Background', '*.mp3', False, SoundNames);
    for i := 0 to SoundNames.Count - 1 do
      begin
      for i2 := 0 to SoundNamesBefore.Count - 1 do if (SoundNames[i] = SoundNamesBefore[i2]) then
        There := True;
      if not There then
        begin
        Memo1.Lines.Add('1');
        SetLength(FBackgroundStream, length(FBackgroundStream) + 1);
        FBackgroundStream[i] := BASS_StreamCreateFile(false, PAnsiChar(AnsiString(SoundNames[i])), 0, 0, 0);
        end
      else
        Memo1.Lines.Add('0');
      There := False;
      end;

    Memo1.Lines := SoundNamesBefore;
    Memo1.Lines.Add('------------');
    Memo1.Lines.AddStrings(SoundNames);
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var
  List1, list2: TStringList;
begin
  List1 := TStringList.Create;
  try
    List1.Add('a');
    List2.Add('b');
    List2 := TStringList.Create;
    try
      List2.Assign(List1);
      ShowMessage(List2[0]);
    finally
      List2.Free;
    end;
  finally
    List.Free;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  List1 := TStringList.Create;
  List2 := TStringList.Create;

  List2 := List1    // List2 wird eine Referenz von List1

  List1.Add('a');

  ShowMessage(List2[0]);    // Gibt 'a' aus, da es auf List1 verweist! Das will ich aber umgehen

  List1.Free;
  List2.Free;