Fórum Verificar Aplicações Abertas #215192

procedure Tform1.ChangeShell(String programa);
var ArquivoIni : Tinifile;
begin
try
ArquivoIni := Tinifile.Create(´System.ini´);
ArquivIni.WriteSection(´Config´,´Shell´,´Myprog.exe´);
fynally
ArquivoIni.Destroy;
end;
end;

program Project1;

uses
  Forms,
  Windows,
  Unit1 in ´Unit1.pas´ ;

{$R *.res}

var
  Handle: THandle;
begin
  Handle := FindWindow(´TForm1´, nil);
  if Handle <> 0 then { Já está aberto }
      begin
      Application.MessageBox(´Este programa já está aberto.´, ´Programa já aberto´, MB_OK);
      Exit;
      end;

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

procedure Tform1.ChangeShell(String programa); 
var ArquivoIni : Tinifile; {Cria uma variável tipo Tinifile}
begin 
try 
ArquivoIni := Tinifile.Create(´System.ini´); {Cria o arquivo System.ini,  tipo Tinifile}
ArquivIni.WriteSection(´Config´,´Shell´,´Myprog.exe´); {Modifica o shell do arquivo System.ini de forma que seu programa seja absoluto, aonde ´MyProg.exe´ é a sua aplicação}
fynally 
ArquivoIni.Destroy; {destroi o arquivo criado}
end; 
end;