Deutsches Lazarusforum

Danke ich habe deine Dateien mal runtergeladen und die Unit ShellCtrls.pas wie du modifiziert. und unit lfmosfuncwin.pas kopiert.
Jetzt muss ich mich mal durch wurschteln
Ich melde mich wenn ich hilfe brauche.

Es ist halt blöd wenn man 6 Jahre lang nicht mehr Programmiert hat
Damals noch in Delphi ...

Und noch was der Eintrag ist jetzt war erweitert aber an der stelle wo das Symbol sein soll ist nix zu sehen

Ach der Fehler tritt immer dann auf wenn ich den eintrag C: in der Shelltreeview1 anklicke

So das ist jetzt mein Quelltext.
Jetzt Aktualisiert

procedure LV_InsertFiles(strPath: string; ShellListView1: TShellListView; ImageList: TImageList);
var
i: Integer;
Icon: TIcon;
SearchRec: TSearchRec;
ListItem: TListItem;
FileInfo: SHFILEINFO;
begin
// Create a temporary TIcon
Icon ...

Bitte den Quellcode entsprechend formatieren ...

> So nicht wundern das ist der Orginal code von: http://www.swissdelphicenter.ch/de/showcode.php?id=421" onclick="window.open(this.href);return false;

Klasse und wir sollen jetzt anhand diesen Code den Fehler in deinem Code finden?
Sorry aber bei ...

uses
ShellApi;

procedure LV_InsertFiles(strPath: string; ListView: TListView; ImageList: TImageList);
var
i: Integer;
Icon: TIcon;
SearchRec: TSearchRec;
ListItem: TListItem;
FileInfo: SHFILEINFO;
begin
// Create a temporary TIcon
Icon := TIcon.Create;
ListView.Items.BeginUpdate;
try ...

DiBo33 hat geschrieben:

Hält der Compiler an und sagt das er shelllistview nicht finden kann.

Dann überlege mal ganz, ganz, ganz scharf woran das wohl liegen könnte.

Wie heißt denn dein TShellListview?

Nun wenn du ShellListview1 meinst weiß ich aber das geht leider auch nicht.
Also so doof bin ich jetzt echt nicht

Klar das hab ich auch gefunden.
Nur die Dateien habe ich ja schon nur das dazu gehörige Symbol fehlt halt.

Außerdem hab ich seit heute probleme mit der dieser procedure
da im abschnitt

with ShellListView do

Hält der Compiler an und sagt das er shelllistview nicht finden kann.

Hallo Leute,
ich habe jetzt fast 2 Wochen nach ner Lösung gesucht aber keine gefunden.

Mein Problem ich verwende Shelllistview um Dateien anzuzeigen.
Nur fehlen mir die Symbole weiß vielleicht einer von euch wie ich das hin bekomme.

Danke schonmal im Vorhaus

So jetzt habe ichs endlich Kapiert

Lösung:

UTF8ToSys(ComboBox1.text)


Vielen Dank an alle!

theo hat geschrieben:Wahrsch. reicht UTF8ToSys((AFilename) etc..

Leider nicht.
Hast du vielleicht n besseres Beispiel?

Hallo Leute,

Ich verwende folgenden Code um eine Verknüfung zu erstellen.
Das funktioniert auch ganz gut so lange keine Umlaute im Spiel sind.

function CreateLink(const AFilename, ALNKFilename, ADescription: string): Boolean;
var
psl: IShellLink;
ppf: IPersistFile;
wsz: PWideChar;
begin ...

Vielen Dank es hat geklappt

Leider hat bringen mich eure Vorschläge nicht weiter.
Gibt es weitere Möglichkeiten?

DiBo33 hat geschrieben:Warum willst du das unbedingt ändern? Windows erkennt auch Slashes statt Backslashes in Pfadangaben.

Das Problem beginnt wenn ich Verzeichnisse Kopieren oder verschieben will.

Die Funktion findet dann den Ordner nicht wenn der Backslash so ist /

Hallo Leute,
ich habe folgendes Problem.

Wenn ich folgenden bei der Shelltreeview folgenden Code verwende:

combobox1.text := shelltreeview1.Selected.GetTextPath;

Dann wird der Pfad unter Windows statt C:\Windows sonder C:/Windows angezeigt
Wie kann ich den / in \ ändern.

Danke schon mal.