Forum: Object-Pascal / Delphi-Language
Delphi
by sniffy,
6. Sep 2004
Will mir wirklich keiner helfen??? :pale:
:cry: :cry: :cry:
Forum: Object-Pascal / Delphi-Language
Delphi
by sniffy,
3. Sep 2004
Jo. Hab da mal noch ne Frage. Der Code:
function GetFolder(root: integer; Caption: string): string;
var bi: TBROWSEINFO;
lpBuffer: PChar;
pidlPrograms,pidlBrowse: PItemIDList;
begin
if (not SUCCEEDED(SHGetSpecialFolderLocation(getactivewindow,root,pidlPrograms)))
then exit;
lpBuffer := StrAlloc(max_path);
Forum: Object-Pascal / Delphi-Language
Delphi
by sniffy,
2. Sep 2004
Vielen vielen Dank!
Ich werd mich morgen wieder melden! Hab jetzt ein Fussballspiel.
Forum: Object-Pascal / Delphi-Language
Delphi
by sniffy,
2. Sep 2004
Danke, klappt wurderbar! :-D
Hab mir schon genug Tutorials durchgelesen, aber für so ein Problem hab ich nie ne Lösung gefunden.
Und außerdem ist doch so ein Forum daür da um Anderen wie mir zu helfen. Dafür bin ich dankbar.
Aber weiter zu dem Code.
Mann muss sich ja vorher festlegen welches Laufwerk durcht werden soll. In diesen Fall ist das ja C:\. Wie stell ich das an während das...
Forum: Object-Pascal / Delphi-Language
Delphi
by sniffy,
2. Sep 2004
@ fkerber
Danke, hat geklappt!
Aber wie mach ich das, das das Programm auch alle Unterverzichnisse durchsucht?
Forum: Object-Pascal / Delphi-Language
Delphi
by sniffy,
2. Sep 2004
Hi. Bin neu hier und Delphi Neuling. Ich hab direkt mal ne Frage. Zuerst der Code:
procedure GetFiles(const ADirectory: string; Files: TStringList;
SubFolders: Boolean);
// Hilfsfunktion, um Schrägstriche zu entfernen bzw. hinzuzfügen, wenn nötig
function SlashSep(const Path, S: string): string;
begin
if AnsiLastChar(Path)^ <> '\' then
Result := Path +...