Kører et program

procedure TForm1.FormCreate(Sender: TObject);
begin
{ Searchs table to see if the program is already running }
  if GlobalFindAtom('PROGRAM_RUNNING') = 0 then
  { If not found then add it }
  fAtom := GlobalAddAtom('PROGRAM_RUNNING')
  else begin
  { If program is already running the show message and halt }
    MessageDlg('Programmet er startet',mtWarning, [mbOK], 0);
  // Halt;
  end;end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  GlobalDeleteAtom(fAtom);
end;

og under dine vars

var
    fAtom : TAtom;

Du kan også søge efter programmet ved at lede efter main-vinduet.

Lad os antage, at caption på den application du vil checke er "MitProgram"
, så kan du bruge nedenstående kode:


procedure TForm1.FormCreate(Sender: TObject);
begin
  if (FindWindow("","MitProgram"))
  {
    // programmet kører
  }else
  {
    // Programmet kører ikke
  }
end;

laffe >> :) Du har da vist fået blandet en smule C ind i din funktion...

jeg ved ikke om det er mig der er dum men jeg kan ikke få nogle af de svar til at virke. så er der mulighed for lidt mere hjælp.....

?HEINO?

Hvad er din mail adr. så skal jeg sende det til dig compileret und alles

Eller prøv selv igen, den totale kode til et nyt projekt har du her:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  fAtom : TAtom;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
begin
{ Searchs table to see if the program is already running }
  if GlobalFindAtom('PROGRAM_RUNNING') = 0 then
  { If not found then add it }
  fAtom := GlobalAddAtom('PROGRAM_RUNNING')
  else begin
  { If program is already running the show message and halt }
    MessageDlg('Programmet er startet',mtWarning, [mbOK], 0);
  Halt;
  end;
end;

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
GlobalDeleteAtom(fAtom);

end;

end.

min mail er heino@hp-power.dk

Er sendt