OberonCore :: - Вывод пути к ф-лу BlackBox.exe/док-та в заг-ке окна ББ/дк-та

PROCEDURE GenPathTitle (w: Window; OUT title: ARRAY OF CHAR);
   VAR loc: Files.Locator; ch: CHAR; s1, s2: HostFiles.FullName; i, j: INTEGER;
BEGIN
   loc := w.loc; title := "";
   WITH loc: HostFiles.Locator DO
      i := 0; ch := loc.path[0]; j := 0; s2 := "";
      WHILE ch # 0X DO
         IF (ch = "\") OR (ch = "/") THEN
            s1[j] := 0X; s2 := s1$; j := 0
         ELSE
            s1[j] := ch; INC(j)
         END;
         INC(i); ch := loc.path[i]
      END;
      s1[j] := 0X;
      (* -> начало изменений *)
      IF s2 # "" THEN
         IF (CAP(s1[0]) = "M") & (CAP(s1[1]) = "O") & (CAP(s1[2]) = "D") & (s1[3] = 0X) THEN
            title := "("+s2+"/Mod)";
         ELSIF (CAP(s1[0]) = "D") & (CAP(s1[1]) = "O") & (CAP(s1[2]) = "C") & (CAP(s1[3]) = "U") & (s1[4] = 0X) THEN
            title := "("+s2+"/Docu)";
         ELSIF (CAP(s1[0]) = "R") & (CAP(s1[1]) = "S") & (CAP(s1[2]) = "R") & (CAP(s1[3]) = "C") & (s1[4] = 0X) THEN
            title := "("+s2+"/Rsrc)";
         END
      END
      (* <- конец изменений *)
   ELSE
   END;
   Append(title, w.name)
END GenPathTitle;

Автор:	adva [ Суббота, 22 Август, 2009 11:14 ]
Заголовок сообщения:	Вывод пути к ф-лу BlackBox.exe/док-та в заг-ке окна ББ/дк-та
Модератор: выделено из viewtopic.php?f=2&t=1773 Вопрос немного не в тему, но решил ради этого новую тему не создавать. Как можно сделать вывести в строке заголовка блекбокса/открытого в блекбоксе документа, путь к исполняемому файлу / путь к этому документу? Просто иногда приходится открывать несколько версий блекбокса, и это было бы удобно.

Автор:	Илья Ермаков [ Суббота, 22 Август, 2009 12:05 ]
Заголовок сообщения:	Re: Вывод пути к ф-лу BlackBox.exe/док-та в заголовке окна ББ/до
Самый простой способ - обзовите копии экзешников как-то по-другому. BlackBox2.exe... Иначе нужно будет выковыривать путь к ББ через Files-HostFiles, и применять WinApi-вызов для изменения заголовка окна. Если захочется помахаться, то про первую часть (выковыривание) подскажем, а про вторую найдёте в Инете самостоятельно, там этих описаний "Работа с чужими окнами" полно. SetWindowLong или что-то типа того...

Автор:	Евгений Темиргалеев [ Суббота, 22 Август, 2009 12:14 ]
Заголовок сообщения:	Re: Вывод пути к ф-лу BlackBox.exe/док-та в заголовке окна Б
adva в viewtopic.php?p=33408#p33408 писал(а): Вопрос немного не в тему, но решил ради этого новую тему не создавать. Спасибо. Как раз сижу и думаю, чего бы помодерить да время убить. Если без шуток: люди, имейте совесть! Сами же потом плачетесь, что на форуме фиг чего найдешь. По теме (касательно окон документа): adva, поглядите HostWindows и viewtopic.php?f=24&t=574. Для себя лично использую такое, аналогичное предложенному тов-м Trurl, исправление HostWindows: Код: PROCEDURE GenPathTitle (w: Window; OUT title: ARRAY OF CHAR); VAR loc: Files.Locator; ch: CHAR; s1, s2: HostFiles.FullName; i, j: INTEGER; BEGIN loc := w.loc; title := ""; WITH loc: HostFiles.Locator DO i := 0; ch := loc.path[0]; j := 0; s2 := ""; WHILE ch # 0X DO IF (ch = "\") OR (ch = "/") THEN s1[j] := 0X; s2 := s1$; j := 0 ELSE s1[j] := ch; INC(j) END; INC(i); ch := loc.path[i] END; s1[j] := 0X; (* -> начало изменений ) IF s2 # "" THEN IF (CAP(s1[0]) = "M") & (CAP(s1[1]) = "O") & (CAP(s1[2]) = "D") & (s1[3] = 0X) THEN title := "("+s2+"/Mod)"; ELSIF (CAP(s1[0]) = "D") & (CAP(s1[1]) = "O") & (CAP(s1[2]) = "C") & (CAP(s1[3]) = "U") & (s1[4] = 0X) THEN title := "("+s2+"/Docu)"; ELSIF (CAP(s1[0]) = "R") & (CAP(s1[1]) = "S") & (CAP(s1[2]) = "R") & (CAP(s1[3]) = "C") & (s1[4] = 0X) THEN title := "("+s2+"/Rsrc)"; END END ( <- конец изменений *) ELSE END; Append(title, w.name) END GenPathTitle;

OberonCore https://forum.oberoncore.ru/

Вывод пути к ф-лу BlackBox.exe/док-та в заг-ке окна ББ/дк-та https://forum.oberoncore.ru/viewtopic.php?f=24&t=1780	Страница 1 из 1

Страница 1 из 1	Часовой пояс: UTC + 3 часа
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/