Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 165
  • Last Modified:

finding a program

i wanbt to know how can i know when my application is runnung if another application exists on my computer
i think that is something like findexecutable but i am having problem with the syntax ;
0
pascal_a
Asked:
pascal_a
  • 2
  • 2
  • 2
  • +2
1 Solution
 
rwilson032697Commented:
You can do this:

function GetProgramDir : string;
var
  Reg: TRegistry;
  TargetDir: string;

begin
  Result := '';

  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;  // Should be this by default anyway
    // Look initially for the project directory
    if Reg.OpenKeyReadOnly('\Software\Microsoft\Windows\CurrentVersion\App Paths\Fred.exe') then
      begin
      TargetDir := Reg.ReadString('');
      Reg.CloseKey;
      Result := ExtractFilePath(TargetDir);
      end;
  finally
    Reg.Free;
  end;
end;

Cheers,

Raymond.
0
 
PeterLarsenCommented:
Are you talking about preventing mutiple program instances ??
0
 
pascal_aAuthor Commented:
no i am searching for another program while my application is running if it is not exists i need  to remove something from my program
0
Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 
cobramaniaCommented:
If you know the caption title of the program, you can use this :

WindowName := FindWindow(nil,'Gangsters');
     If WindowName = 0 then
     begin
         //can't find the program
          MessageDlg('Run the game first',mtWarning,[mbOK],0);
          Application.Terminate;
     end
    else
    begin
          //if you find the program
    end;
     
0
 
pascal_aAuthor Commented:
i know the name of the program (something.exe) but this program is not running i want to know if i can make it to show something if the program exists from my program
i mean that if this program exists in my computer and is not an active window;
0
 
PeterLarsenCommented:
Is Raymonds comment not what you need ?
0
 
b26Commented:
U can use a couple of functions to find any file on your fixed drives, something like this:

function SearchFile(strfile:string): boolean ;
var c,c1: array [0..100] of char; blnok:boolean; i:integer;
    pstrdrives : LPSTR;
    nsize : DWORD;
    nrezult : WORD;
    strdrive:string;
begin
     SearchFile := false;
     nsize := 2;
     pstrdrives := LPSTR(HeapAlloc(GetProcessHeap, 0, nsize));
     nrezult := GetLogicalDriveStrings(nsize,pstrdrives);
     if nsize < nrezult then
     begin
        nsize := nrezult;
        pstrdrives := LPSTR(HeapReAlloc(GetProcessHeap, 0, pstrdrives, nsize));
        nrezult := GetLogicalDriveStrings(nsize,pstrdrives);
     end;
     if nrezult <> 0 then
     begin
          strdrive := '';
          for i:= 0 to nsize-1 do
              if pstrdrives[i] = #0  then
              begin
                   if (GetDriveType(LPSTR(strdrive)) = DRIVE_FIXED) and      SearchInDrive(strdrive,strfile) then
                   begin
                           SearchFile := true;
                           break
                   end;
                   strdrive := '';
                   if (i<nsize - 1) and (pstrdrives[i+1] = #0) then break;
              end
              else  strdrive := strdrive + pstrdrives[i];
     end;
     if(pstrdrives <> nil) then  HeapFree(GetProcessHeap, 0, pstrdrives);
end;


function SearchInDrive(strpath,strfile:string) : boolean;
var searchrec : TSearchRec;
    nfind : integer;
    var blnok: boolean;
begin
     SearchInDrive := false;
     nfind := Findfirst(strpath + strfile, faanyfile, searchrec);
     if nfind = 0 then
     begin
          SearchInDrive := true;
          FindClose(SearchRec);
          exit
     end
     else
     begin
         nfind := Findfirst(strpath + '*.*', faanyfile, searchrec);
         while nfind = 0 do
         begin
               if ((SearchRec.Attr and faDirectory) > 0) and (searchrec.name<>'.') and (searchrec.name<>'..') then
               begin
                    blnok := SearchinDrive(strpath + searchrec.name + '\',strfile);
                    if blnok then
                    begin
                       SearchInDrive := blnok;
                       FindClose(SearchRec);
                       exit
                    end
                    else nfind := Findnext(searchrec);
               end
               else nfind := Findnext(searchrec);
         end;
         FindClose(SearchRec);
     end;
end;

Cheers,
Bogdan
0
 
rwilson032697Commented:
<LOCK>
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

  • 2
  • 2
  • 2
  • +2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now