Zitat:
Delphi-Quellcode:
procedure CreateHiddenFolder(APath: WideString);
begin
if not DirectoryExists(APath) and ForceDirectories(APath)then
begin
SetFileAttributes(PAnsiChar(APath),FILE_ATTRIBUTE_HIDDEN);
end;
end;
Wie Luckie schon sagte:
- Fehlerprüfungen
und dann vorallem
KEINE Vermischung von
Ansi/
Unicode 
APath =
Unicode
DirectoryExists(APath = compilerabhängig +
Unicode
ForceDirectories(APath = compilerabhängig +
Unicode
SetFileAttributes(PAnsiChar = compilerabhängig +
Ansi
PAnsiChar(APath) =
Ansi +
Unicode (hier sollte aber der Compiler auch meckern)
kein Wunder, daß nichts funktioniert
Delphi-Quellcode:
procedure CreateHiddenFolder(APath: String);
begin
if not DirectoryExists(APath) and ForceDirectories(APath)then
begin
SetFileAttributes(PChar(APath), FILE_ATTRIBUTE_HIDDEN);
end;
end;
Delphi-Quellcode:
procedure CreateHiddenFolder(APath: AnsiString);
begin
// hier ist eine Ansi-Version nötig, aber Unicode ginge auch nocht
if not DirectoryExists(APath)
and ForceDirectories(APath)
then // <<<<<
begin
SetFileAttributesA(PAnsiChar(APath), FILE_ATTRIBUTE_HIDDEN);
end;
end;
Delphi-Quellcode:
procedure CreateHiddenFolder(APath: WideString);
begin
// hier ist eine Unicode-Version nötig
if not DirectoryExists(APath)
and ForceDirectories(APath)
then // <<<<<
begin
SetFileAttributesW(PWideChar(APath), FILE_ATTRIBUTE_HIDDEN);
end;
end;