Hola amigüitos, estoy creando un servicio desde delphi 7 para que cuando se inserta un cd me lo detecte y ejecute un .exe que hay en el cd.
Ahora mismo pongo un timer cada X segundos que intente verificar si existe un fichero, con el fileexist nunca me dice que esta el fichero y ya ni hablar de intentar ejecutarlo, ya que dentro de un servicio dicen que solo sirve el createprocess y no me va tampoco.
Aqui pongo el codigo pa detectar el exe ....
codigo:
Código Delphi
[-]
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm2 = class(TForm)
Memo1: TMemo;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
public
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Timer1Timer(Sender: TObject);
const
FileName = 'c:\logdate.txt';
var
F: TextFile;
aguardar: string;
midrive: char;
begin
if FileExists('D:\CdAct.exe') then
aguardar := 'Se ha encontrado el fichero'
else
aguardar := 'NOOOOOO se ha encontrado el fichero';
AssignFile(f,FileName);
if FileExists(FileName) then Append(f)
else
Rewrite(f);
writeln(f,aguardar);
CloseFile(f);
end;
end.
Alguna idea?!?!