Проблемы с автозапуском (реестр) - Общие вопросы Delphi - Страница 2

[Smarik] · 02.05.2009, 15:36

Цитата:

Сообщение от Пепел Феникса

Код:

ExtractFilePath(Paramstr(0))

а вот попробуйте

скомпилировалось, но ничем не помогло

вот код:

Код:

program WinLogs;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows, IniFiles, Registry;

var
  Report : TextFile;
  Date_Start, Time_Start : string;
  ConfigINI : TIniFile;
  Path : string;
  ARun : Boolean;
  Reg: TRegistry;

procedure Autorun(RunName, AppName: string);
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    WriteString(RunName, AppName);
    CloseKey;
    Free;
  end;
end;

function Computer:string;
var
  i:DWORD;
  p:PChar;
begin
  i:=255;
  GetMem(p, i);
  GetComputerName(p, i);
  Result:=String(p);
  FreeMem(p);
end;

function User: string;
var
  UserName : string;
  UserNameLen : DWord;
begin
  UserNameLen := 255;
  SetLength(userName, UserNameLen);
  if GetUserName(PChar(UserName), UserNameLen) then
    Result := Copy(UserName,1,UserNameLen - 1)
  else
    Result := 'Пользователь не определен';
end;

begin
  try
    Date_Start := DateToStr(Date);
    Time_Start := TimeToStr(Time);

    ConfigINI := TIniFile.Create('Config\Setup.ini');
    Path := ConfigINI.ReadString('Config', 'Path', Path);
    ARun := ConfigINI.ReadBool('Config', 'Autorun', False);
    if ARun then
      Autorun('WinLogs','C:\Program Files\WinLogs\WinLogs.exe')
    else
      Autorun('WinLogs','');

    assignfile(Report,Path+Date_Start+'-'+Time_Start+'.htm');
    rewrite(Report);
    writeln(Report,'<HTML>');
      writeln(Report,'<HEAD>');
        writeln(Report,'<META NAME="GENERATOR" CONTENT="WinLogs">');
        writeln(Report,'<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=Windows-1251">');
        writeln(Report,'<TITLE>');
          writeln(Report, 'Дата: '+Date_Start+' Время: '+Time_Start);
        writeln(Report,'</TITLE>');
      writeln(Report,'</HEAD>');
      writeln(Report,'<BODY>');
        writeln(Report,'<H1>WinLogs версия 0.10 <FONT COLOR="RED">BETA</FONT></H1><HR>');
        writeln(Report,'<LI>');
        writeln(Report,'<H1>Общая информация</H1>');
        writeln(Report,'<UL>Дата включения: '+Date_Start+'</UL>');
        writeln(Report,'<UL>Время включения: '+Time_Start+'</UL>');
        writeln(Report,'<UL>Имя компьютера: '+Computer+'</UL>');
        writeln(Report,'<UL>Имя пользователя: '+User+'</UL>');
        writeln(Report,'</LI>');
        writeln(Report,'</BODY>');
    writeln(Report,'</HTML>');
    closefile(Report);
    exit;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Реестр	BioS	Win Api	6	01.12.2008 19:52
Реестр	EVO-X	Win Api	2	14.07.2008 20:19
Реестр	Volkogriz	Общие вопросы Delphi	5	01.05.2008 21:23
Реестр	GAGARIN-NEW	Свободное общение	2	06.01.2008 11:31
Проблема с автозапуском!	FAiver	Общие вопросы Delphi	2	10.08.2007 09:05