Internetsurfer (ein Internetbrowser)

[sakura]

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.