[SCrat.ORS]

Код:

var
p:string;
h:HWND;
i,i1:integer;
begin
p:=extractfiledir(application.ExeName); //Извлекаем полный путь до папки
h:=0; //Начальный хендл
i1:=0;//стартовая позиция поиска
if ShellExecute(0,'open',PChar(p),nil,nil,SW_SHOWDEFAULT)=42 then begin //открываем папку с ехе
for i := 1 to length(p) do if p[i]='\' then i1:=i; //получаем позицию конечной папки в полном пути
p:=copy(p,i1+1,length(p)-i1); //извлекаем название конечной папки
while h=0 do h:=FindWindow(nil, PChar(p)); //перебираем окна до тех пор, пока не найдем окно с заголовком с названием папки
ShowMessage('Нашлось - '+Inttostr(h));
end;
end;

Собственно вопрос был - почему хендл explorera находился нулевым.
Продолжаем думать.