не получается сервис

[stepanrts]

здравствуйте все! хелп ми! я в делфи новичек, и решил написать свой первый сервис который будет запускать файл например текстовый, типо включаешь комп и сервис открывает файл! все вроде написал, ошибок f9 не показал, добавил через /install в службах виден статус работает, а вот файл не открывает.... помогите.... задавал вопрос еще где то но мне не помогли( вот код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, ShellApi, Dialogs;

type
  TService1 = class(TService)
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

var
  Service1: TService1;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service1.Controller(CtrlCode);
end;

function TService1.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;
var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
ExecuteFile, ParamString, StartInString: string;
begin
  ExecuteFile := 'c:\123.txt';
  FillChar(SEInfo, SizeOf(SEInfo), 0);
  SEInfo.cbSize := SizeOf(TShellExecuteInfo);
end.

так тоже не робит

var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
ExecuteFile, ParamString, StartInString: string;
begin
ShellExecute(Handle,nil,'C:\123.txt',nil,nil,SW_RESTORE);
end.

да еще хочется что бы файл запускался через определенный промежуток времени. а расширение файла имеет какое либо значение для процедуры?

если имеет значение делфи 7

[Miha85193]

А вот так не пробовали:

ShellExecute(Applicalion.Handle,'open','C:\123.txt',nil,nil,SW_SHOW);

Хотя и ваш вариант по идеи должен работать.

Расширение файла txt означает, что файл откроется в программе работающей с текстовыми файлами по умолчанию. На пример в Win XP это Блокнот. Возможно у вас отсутствует такая программа, или программа для работы с текстовыми файлами просто не назначена.

[stepanrts]

я порпробовал ехе и все заработало) щас буду испытывать бат...
ребят, подскажите как сделать так чтоб этот файл запускался каждые 3минуты...

[Sensizu]

stepanrts, либо циклом либо получаешь текущее время и добавляешь к нему 3 минуты (в секундах, если не в милисекундах). Когда текущее время=полученому+3минуты делаешь запуск файла. А еще проще - поставь Timer с интервалом в 3 минуты (в милисекундах тоже). Вот так:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
OpenFile('твой файл');
end;

При этом для более удобного использования можешь описать функцию OpenFile:

function TForm1.OpenFile(const path:string):boolean;
begin
// здесь код открытия файла
end;

Ну и не забываем описать функцию в type твоего проекта.

[Lime]

Сообщение от Miha85193

Расширение файла txt означает, что файл откроется в программе работающей с текстовыми файлами по умолчанию. На пример в Win XP это Блокнот. Возможно у вас отсутствует такая программа, или программа для работы с текстовыми файлами просто не назначена.

Если программа для работы с файлами расширения "*.xyz" не назначена открывается меню где Windows предлагает выбрать программу с помощью которой нужно открыть файл.

[stepanrts]

Sensizu, напиши пожалуйста весь код ато у меня ошибки лезут, вон как я в ночале зделал, скопируй и допиши) плз оч надо