application.exename

[Uwe Raabe]

Zitat von Glados:

Schön wäre es dennoch und kürzeren Code hätte man dann auch.

Bitteschön:

Delphi-Quellcode:

interface

uses
  System.IOUtils;

type
  TPathHelper = record helper for TPath
  private
  public
    function GetDesktopFolder: string;
    function GetStartMenuFolder: string;
  end;

implementation

uses
  Winapi.SHFolder, Winapi.ShlObj;

function TPathHelper.GetDesktopFolder: string;
var
  LStr: array[0 .. MAX_PATH] of Char;
begin
  SetLastError(ERROR_SUCCESS);

  if SHGetFolderPath(0, CSIDL_DESKTOPDIRECTORY, 0, 0, @LStr) = S_OK then
    Result := LStr;
end;

function TPathHelper.GetStartMenuFolder: string;
var
  LStr: array[0 .. MAX_PATH] of Char;
begin
  SetLastError(ERROR_SUCCESS);

  if SHGetFolderPath(0, CSIDL_STARTMENU, 0, 0, @LStr) = S_OK then
    Result := LStr;
end;

[Glados]

Ok an Class-Helper habe ich ehrlich gesagt nicht gedacht, da ich öfter mal Schlechtes darüber gelesen habe.

[Fritzew]

Klasse!
Nur eine Kleinigkeit , Result sollte initialisiert werden.......

Zitat von Uwe Raabe:

Bitteschön:

Delphi-Quellcode:

interface

uses
  System.IOUtils;

type
  TPathHelper = record helper for TPath
  private
  public
    function GetDesktopFolder: string;
    function GetStartMenuFolder: string;
  end;

implementation

uses
  Winapi.SHFolder, Winapi.ShlObj;

function TPathHelper.GetDesktopFolder: string;
var
  LStr: array[0 .. MAX_PATH] of Char;
begin
  SetLastError(ERROR_SUCCESS);
  Result := ''; // Wenn schon denn Schon 
  if SHGetFolderPath(0, CSIDL_DESKTOPDIRECTORY, 0, 0, @LStr) = S_OK then
    Result := LStr;
end;

function TPathHelper.GetStartMenuFolder: string;
var
  LStr: array[0 .. MAX_PATH] of Char;
begin
  SetLastError(ERROR_SUCCESS);
 Result := ''; // Wenn schon denn Schon 
  if SHGetFolderPath(0, CSIDL_STARTMENU, 0, 0, @LStr) = S_OK then
    Result := LStr;
end;

Zitat von Glados:

Ok jetzt weiß ich warum die Dinger verpöhnt sind - zumindest ich weiß nicht einmal wie man das benutzt.

Den Helper in eine Unit, diese einbinden wo die Funktionen daraus gebraucht werden und fertig.

[Glados]

Ich habs jetzt so gemacht

Delphi-Quellcode:

var
 PathHelper: TPath;

[Fritzew]

Zitat von Glados:

Ich habs jetzt so gemacht

Delphi-Quellcode:

var
 PathHelper: TPath;

Das brauchst Du nicht.
Einfach die Unit einbinden und dann zb :

 myDektop := Tpath.GetDesktopFolder; Der ClassHelper erweitert Tpath um die funktionen

[Luckie]

Ich hätte die Methoden allerdings GetWinDesktopFolder und GetWinStartMenuFolder genannt. Wenn dann noch welche für MacOS oder Linux dazu kommen, kann man sie auch entsprechend benennen und kommt nicht durcheinander.

[Fritzew]

Zitat von Luckie:

Ich hätte die Methoden allerdings GetWinDesktopFolder und GetWinStartMenuFolder genannt. Wenn dann noch welche für MacOS oder Linux dazu kommen, kann man sie auch entsprechend benennen und kommt nicht durcheinander.

Wieso? Das ist doch der Zweck der CrossPlattform Routinen?
Wenn ich den Desktop will ist es doch egal ob ich aktuell unter Win oder OSX bin.
Ist doch z.B bei TPath.GetDownloadsPath genau so oder?

[Luckie]

Äh. Ja. War ein Denkfehler von mir.