HiAsm

Форумы Помощь по пакету Возможно ли получить полный путь к файлу или папке под курсором ? ← Ctrl12 3Ctrl →

Ответов: 497

Рейтинг: 16

#1: 2016-07-23 13:52:19 ЛС | профиль | цитата

Vaduha, ну можно вот так VB
code_37493.txt
получить их координаты и проверять где курсор
------------ Дoбавленo в 13.52:
или вот делфи

#pas
function GetDesktopListViewHandle: THandle;
var
  S: String;
begin
  Result := FindWindow('ProgMan', nil);
  Result := GetWindow(Result, GW_CHILD);
  Result := GetWindow(Result, GW_CHILD);
  SetLength(S, 40);
  GetClassName(Result, PChar(S), 39);
  if PChar(S) <> 'SysListView32' then 
    Result := 0; 
end;

в получить координаты

ListView_GetItemPosition(GetDesktopListViewHandle,i,x,y);

карма: 1

]

файлы: 1 code_37493.txt [412B] [336]

Форумы Помощь по пакету Возможно ли получить полный путь к файлу или папке под курсором ? ← Ctrl12 3Ctrl →