Zitat von
max666:
// CSIDLPROGRAMS, ... sind globale Variablen vom Typ string
Und warum?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(
handle, '
explore', '
explorer.exe', PChar(GetSpecialFolder(
Handle, CLSIDL_DESKTOP)),
nil, SW_SHOWNORMAL);
end;
Ob ich jetzt erst deine Funktion FindPath aufrufe oder direkt Shellexecute mit GetSpecialFolder und der Konstanten macht keinen Unterschied. ich könnte das, was jetzt in der ButtonClick Routine steht auch in eine Funktion packen der ich eben die gewünschte CSIDL_xxx übergebe.
Und warum ist deine Funktion GetSpecialFolder eine Methode von TForm? Hat doch damit gar nichts am Hut.