FindWindow не нашел окна, а ShellExecute возвращает ERROR_PATH_NOT_FOUND

[malor]

Функция ShellExecute возвращает ERROR_PATH_NOT_FOUND(числовое значение - 2), хотя путь указан верный
в переданных ей пораметрах.

procedure TFMain.TimerFindWindowTimer(Sender: TObject);
var
  err:integer;
begin
  if FindWindow(nil, 'MyWindow') = 0 then
    err := ShellExecute(handle, 'Open', PChar(MyProgaEXE), nil, nil, sw_restore);

1.Программа, из которой приведен отрывок, один раз она запускает прогу, указанную в пути MyProgaEXE, а потом(согласно таймеру), хотя уже экземпляр запущен и работат,
FindWindow не обнаруживает его, всед за чем дело доходит до строки с функцией ShellExecute. Почему FindWindow не находит окна с
заголовком MyWindow?
2.Почему ShellExecute позвращает двойку? Ведь если б путь был неправилен, то и первый экземпляр не запустился бы.

Delphi 7

[_SERGEYX_]

FindWindow не обнаруживает его, всед за чем дело доходит до строки с функцией ShellExecute.
Почему ShellExecute позвращает двойку?

Ну, почему не обнаруживает. Если бы не обнаружил, то вернул бы ноль.

Я проверил вот этот код.. все ОК, Блокнот запускается только один раз.

var err:integer;
begin
  if FindWindow(nil, 'Безымянный - Блокнот') = 0 then
  err := ShellExecute(handle, 'Open', 'notepad.exe', nil, nil, sw_restore);
end;

Если уже совсем ничего не получается можно попробовать проверить запущена ли программа более идиотским способом:

uses 
  Psapi, tlhelp32; 

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.Button1Click(Sender: TObject); 
begin 
  if EXE_Running('Notepad.exe', False) then 
    ShowMessage('Запущен') 
  else 
    ShowMessage('Не запущен'); 
end;

Второй код проверил. Работает.

[malor]

>>Ну, почему не обнаруживает. Если бы не обнаружил, то вернул бы ноль.

Так FindWindow и вернул ноль! Благодаря чему программа и попала на строку с функцией ShellExecute.