ANTICHAT — форум по информационной безопасности, OSINT и технологиям

uses Registry;
.....
{находим директорию винды}
function GetSystemRoot: String;
var Reg: TRegistry;
begin
  Reg:=TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion', false);
  Result:=reg.ReadString('SystemRoot');
  Reg.free;
end;

{находим имя пользователя}
function GetUN: string;
var
UN : string;
UNLen : Dword;
begin
  UNLen := 255;
  SetLength(UN, UNLen);
  if GetUserName(PChar(UN), UNLen) then
    Result := Copy(UN,1,UNLen - 1);
end;

{используем всё это, чтоб составить путь}
procedure TForm1.Button1Click(Sender: TObject);
var str:string;
begin
str:=copy(GetSystemRoot,1,3)+'Documents and Settings\'+GetUN+'\Рабочий стол\'+FormatDateTime('hh.nn.ss',now)+'.bmp';

bmp.SaveToFile(str);
end;

procedure TMainForm.HomePageRequest(var Message: TMessage);
begin
  URLs.Text := 'C:\index.html';
  FindAddress;
end;

procedure TMainForm.HomePageRequest(var Message: TMessage);
begin
  URLs.Text := 'index.html';
  FindAddress;
end;

begin
URLs.Text:=ExtractFilePath(ParamStr(0))+'index.html';
  FindAddress;
end;