Code:
uses FileCtrl, Registry;
function GetProgFolder: String;
begin
with TRegistry.Create do
try
if OpenKey(''SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', False) then
try
if ValueExists('Programs') then
Result := ReadString('Programs');
finally
CloseKey;
end;
finally
Free;
end;
if Result <> '' then
begin
ForceDirectories(Result);
Result := Result + '\';
end;
end;
Da sind einige Sicherheitsabfragen drinnen, ist ungetestet, sollte aber funktionieren.
Mit
Code:
OpenFile(
Handle, GetProgFolder + 'history.txt');
könntest Du dann zum Beispiel die History Datei im Programme Verzeichnis immer öffnen...
Weiter so, und viel Spass beim Coden.
