Programm funtioniert im Autostart nicht mehr

[Ferber]

GetProgramPath sollte den Programmpfad liefern.

Delphi-Quellcode:

function GetProgramPath: string;
begin
  Result:=ExtractFilePath(GetProgramName);
end;

function GetProgramName: string;
var
  Buffer: array[0..260] of Char;
begin
  SetString(Result, Buffer, GetModuleFileName(0, Buffer, SizeOf(Buffer)));
end;