Проверка и запуск файла.

[iLnes]

Что за программа: Берет адрес из Edit1 до файла, проверяет, если он запущен, то сидит молча, если он не запущен, то запускает его. Работало все норм, пока не добавил Edit1 (то есть работал напрямую с именем файла в папке), как добавил, пришлось менять код и теперь игнорится проверка. То есть, он проверяет, запущена программа, и даже если она запущена уже, запускает еще одну копию и так бесконечное количество раз. Кто пожскажет, что не так?) Сам код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Psapi, tlhelp32, StdCtrls, ShellAPI, ExtCtrls, sSkinManager,
  Buttons, sSpeedButton, sEdit, sDialogs;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    sSkinManager1: TsSkinManager;
    sEdit1: TsEdit;
    sSpeedButton1: TsSpeedButton;
    sOpenDialog1: TsOpenDialog;
    sSpeedButton2: TsSpeedButton;
    procedure Timer1Timer(Sender: TObject);
    procedure sSpeedButton1Click(Sender: TObject);
    procedure sSpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure CreateWin9xProcessList(List: TstringList);
var
  hSnapShot: THandle;
  ProcInfo: TProcessEntry32;
begin
  if List = nil then Exit;
  hSnapShot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if (hSnapShot <> THandle(-1)) then
  begin
    ProcInfo.dwSize := SizeOf(ProcInfo);
    if (Process32First(hSnapshot, ProcInfo)) then
    begin
      List.Add(ProcInfo.szExeFile);
      while (Process32Next(hSnapShot, ProcInfo)) do
        List.Add(ProcInfo.szExeFile);
    end;
    CloseHandle(hSnapShot);
  end;
end;

procedure CreateWinNTProcessList(List: TstringList);
var
  PIDArray: array [0..1023] of DWORD;
  cb: DWORD;
  I: Integer;
  ProcCount: Integer;
  hMod: HMODULE;
  hProcess: THandle;
  ModuleName: array [0..300] of Char;
begin
  if List = nil then Exit;
  EnumProcesses(@PIDArray, SizeOf(PIDArray), cb);
  ProcCount := cb div SizeOf(DWORD);
  for I := 0 to ProcCount - 1 do
  begin
    hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or
      PROCESS_VM_READ,
      False,
      PIDArray[I]);
    if (hProcess <> 0) then
    begin
      EnumProcessModules(hProcess, @hMod, SizeOf(hMod), cb);
      GetModuleFilenameEx(hProcess, hMod, ModuleName, SizeOf(ModuleName));
      List.Add(ModuleName);
      CloseHandle(hProcess);
    end;
  end;
end;

procedure GetProcessList(var List: TstringList);
var
  ovi: TOSVersionInfo;
begin
  if List = nil then Exit;
  ovi.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  GetVersionEx(ovi);
  case ovi.dwPlatformId of
    VER_PLATFORM_WIN32_WINDOWS: CreateWin9xProcessList(List);
    VER_PLATFORM_WIN32_NT: CreateWinNTProcessList(List);
  end
end;

function EXE_Running(FileName: string; bFullpath: Boolean): Boolean;
var
  i: Integer;
  MyProcList: TstringList;
begin
  MyProcList := TStringList.Create;
  try
    GetProcessList(MyProcList);
    Result := False;
    if MyProcList = nil then Exit;
    for i := 0 to MyProcList.Count - 1 do
    begin
      if not bFullpath then
      begin
        if CompareText(ExtractFileName(MyProcList.Strings[i]), FileName) = 0 then
          Result := True
      end
      else if CompareText(MyProcList.strings[i], FileName) = 0 then Result := True;
      if Result then Break;
    end;
  finally
    MyProcList.Free;
  end;
end;

procedure TForm1.sSpeedButton1Click(Sender: TObject);
begin
if sOpenDialog1.Execute then
 begin
 sEdit1.Text := sOpenDialog1.FileName;
 end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if EXE_Running(sOpenDialog1.FileName, False) then
   Sleep(100)
  else
    ShellExecute(Handle, nil, PAnsiChar(sOpenDialog1.FileName), nil, nil, SW_SHOW);
end;

procedure TForm1.sSpeedButton2Click(Sender: TObject);
begin
 Timer1.Enabled := True;
end;

end.

[Пепел Феникса]

ну видимо потому что в таймере вы берете имя не из эдита.

[iLnes]

Сообщение от Пепел Феникса

ну видимо потому что в таймере вы берете имя не из эдита.

Пробывал Edit = та же шляпа.

[Аватар]

В EXE_Running передаете полное имя файла, а второй параметр False. Не в этом ли проблема?

[iLnes]

Сообщение от Аватар

В EXE_Running передаете полное имя файла, а второй параметр False. Не в этом ли проблема?

Да, действительно. Спасибо большое Не доглядел)