Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Вниз

Зацените прогу   Найти похожие ветки 

 
ORMADA ©   (2004-10-11 12:21) [0]

Всем добрый день!
Прошу поюзать и заценить програмку
http://www.ormada.nm.ru/FLauncher_1.2.1.exe
Сделана для группировки ярлыков и управления ими
тестовая версия


 
Dmitriy O. ©   (2004-10-11 12:26) [1]

Что нам говорят в таких случаях сис. админы (не запускайте пост прог на ваших компах)


 
ORMADA ©   (2004-10-11 12:29) [2]

2Dmitriy O. это sfx архив прога внутри сделана по мотивам Turbo Launchera


 
kaZaNoVa ©   (2004-10-11 12:33) [3]

вы бы исходник дали - посмотрели б ..
а проги мы и сами напишем :))  (kaZaNoVa)


 
kaZaNoVa ©   (2004-10-11 12:33) [4]

kaZaNoVa ©   (11.10.04 12:33) [3]
(C)


 
ORMADA ©   (2004-10-11 12:35) [5]

2 ALL
исходники не дам - жадный очень!
если может кто заценить - жду коментариев, замечаний, багов и т.д.
а просто трепаться - потеря временни!


 
kaZaNoVa ©   (2004-10-11 12:41) [6]

ну-ну ..  жадный он ..
а так - вдруг там троян ????
Dmitriy O. ©   (11.10.04 12:26) [1]
прав ..


 
kaZaNoVa ©   (2004-10-11 12:42) [7]

ORMADA ©   (11.10.04 12:35) [5]

> сли может кто заценить - жду коментариев, замечаний,
> багов и т.д.

даже скачивать не буду


 
ORMADA ©   (2004-10-11 12:47) [8]

Удалено модератором


 
Megabyte-ceercop ©   (2004-10-11 13:05) [9]

Я воще нетерплю значки в трее!!! >8-(
А человека - который пишет проги для сортировки значков в трее - нужно наказывать за изврат!!!


 
ORMADA ©   (2004-10-11 13:36) [10]

2 Megabyte-ceercop- спасиба! вгоняй меня в экстаз!
поясню программа принимает перетаскиваемые ярлыки на кнопки и позволяет запускает содержимое (exe на кот натравлен ярлык)
сделан типа Turbo Launcher"а


 
Megabyte-ceercop ©   (2004-10-11 15:23) [11]

А-а-а!!! 8-0 !!!
Немогу слушать!!!!


 
KilkennyCat ©   (2004-10-11 15:30) [12]


> Megabyte-ceercop ©   (11.10.04 15:23) [11]

не могу


 
Megabyte-ceercop ©   (2004-10-11 15:47) [13]


> KilkennyCat ©   (11.10.04 15:30) [12]

Че го ты неможешь?  :-|


 
KilkennyCat ©   (2004-10-11 15:49) [14]


> Megabyte-ceercop ©   (11.10.04 15:47) [13]


Я много не могу, например, написать "не могу" слитно 8-Р


 
JibSkeart ©   (2004-10-11 17:01) [15]

А вот моя альтернатива ...
только пока скриншот
файлик выкладывать не буду , есть баги а с багами стыдно выкладываеть .
точнее там баги больше по совместимости с Win9x/Me.

http:\\www.jibskeart.fromru.com

>ORMADA
кстати твоя прога у меня не работает
тоесть бросаю ярлык на форму и ничего не происходит .


 
ORMADA ©   (2004-10-12 07:44) [16]

2 JibSkeart
подскажи плз ты бросаешь ярлык на форму или на кнопку ?
надо на кнопку и вопрос что за ярлыки ?
допустим из мой комп и тому подобных мне не удаётся выдрать иконку
вот картинку сделал
http://www.ormada.nm.ru/Flauncher.jpg


 
JibSkeart ©   (2004-10-12 10:16) [17]

На кнопку и на форму , если эта кнопка является групой ,
то естесвенно она появляется там (синия панель)...

выдрать иконку в Делфи можно так , писал правда давно .
поэтому не знаю насколько правильно работает .
эта функция выдергивает путь из ярлыка .
Uses
ActiveX,ComObj,ShlObj;

procedure SLink(Var pp:pChar);
var
 MyObject : IUnknown;
 MyIcon : IShellLink;
 MyPFile : IPersistFile;
 WFileName : WideString;
 TF:TWin32FindData;
begin
 MyObject := CreateComObject(CLSID_ShellLink);
 MyIcon := MyObject as IShellLink;
 MyPFile := MyObject as IPersistFile;
 WFileName := pp;
 MyPFile.Load(PWChar(WFileName),0);
  with MyIcon do
   begin
    GetPath(pp,255,tf,SLGP_UNCPRIORITY) ;
   end;
end;

а дальше через функцию ExtractIconEx();


 
ORMADA ©   (2004-10-12 12:42) [18]

2 JibSkeart
для мой комп и тому подобных такой трюк не проходит
не поверишь извлекаю аналогичным способом

procedure ResolveShortcut(Wnd: HWND; ShortcutPath: string; var ExePath: string;
   var IconPath: string; var IconIndex: integer);
 var
   obj: IUnknown;
   isl: IShellLink;
   ipf: IPersistFile;
   pfd: TWin32FindDataA;
 begin
   IconIndex := -1;

   obj := CreateComObject(CLSID_ShellLink);
   isl := obj as IShellLink;
   ipf := obj as IPersistFile;
   ipf.Load(PWChar(WideString(ShortcutPath)), STGM_READ);
   with isl do
   begin
     Resolve(Wnd, SLR_ANY_MATCH);

     ExePath := StringOfChar(#0, MAX_PATH);
     IconPath := StringOfChar(#0, MAX_PATH);

     GetPath(PAnsiChar(ExePath), MAX_PATH,pfd,SLGP_UNCPRIORITY);
     GetIconLocation(PAnsiChar(IconPath), MAX_PATH, IconIndex);
   end;
 end;


 
Cosinus ©   (2004-10-12 13:43) [19]

Первое впечатление.
Маленькое поле для названия... Либо сделать побольше, либо, что на мой взгляд лучше, автопрокрутку.


 
ORMADA ©   (2004-10-12 15:13) [20]

2 Cosinus СПАСИБО что посмотрел
->Маленькое поле для названия 20 символов мало ?
подскажи что ты пытался написать в названии ?


 
Cosinus ©   (2004-10-12 15:27) [21]


> ORMADA ©   (12.10.04 15:13) [20]

StatusBar я имел ввиду. Если есть номер аськи, давай. Так проще.


 
ORMADA ©   (2004-10-12 15:30) [22]

2 Cosinus
ICQ 174668910


 
Zeqfreed ©   (2004-10-12 16:13) [23]

Блин... размер сложно указать? Я думал лана, может на сайте размео указан... Так нет!! на сайте тоже размера не написано!


 
inic ©   (2004-10-12 16:20) [24]

Смотрел только картинку (скачивать не стал):
может сделать в плоском стиле XP.


 
jek_ ©   (2004-10-12 20:08) [25]

?


 
ORMADA ©   (2004-10-13 07:49) [26]

2 Zeqfreed извини ща укажу
2 inic глянуть можешь типа запустить хоть пару раз чтоб мнение свое потом рассказать
2 jek_ что значить ?


 
ORMADA ©   (2004-10-13 07:55) [27]

exe модуль   229,888 kb
WinRar архив 222,928 kb


 
ORMADA ©   (2004-10-13 08:52) [28]

Есть 1 трабла связанная с хинтом для показа прокручивающегося хинта использую JvScrollText, но активирую и заполняю его только при наступлении события OnHint
так вот надо отключить его когда хинт пропал как это лучше сделать
т.е. отловить событие когда хинт пропал...
Application.OnHint := DisplayHint;
Код:

 procedure DisplayHint;
 HintJvScrollText.Items.Clear;
 HintJvScrollText.Items.Add(Application.Hint);
 HintJvScrollText.Active;


 
JibSkeart ©   (2004-10-13 11:18) [29]

Хмм , а почему не прокатывает ?


 
wisekaa ©   (2004-10-13 13:06) [30]

И сколько твоя прога памяти кушать будет?

Вот неплохие (на мой взгляд) программы, которые я использую:

YzDock, StarDock ObjectDock, StarDock ObjectDock Plus


 
ORMADA ©   (2004-10-13 14:12) [31]

2 wisekaa сам глянь в диспечере - жрёт не много! в основном 700kb до 2500kb
у меня сейчас 8 страниц 1 ряд, 10 кнопок в ряду
когда в трее висит 700 kb восстанавливает 1060 kb!!!
StarDock ObjectDock Plus юзал
кто то а вот она памяти то точно жрёт будь здоров!
а уж как тормоооооозит когда в настройках чё-нить изменишь... или даже просто откроешь настройки панели и закроешь...
[28] сделал, работает
люди кто нить может помочь с экспортом настроек в xml или примерчик по работе с xml в дельях кинуть  ?



Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.52 MB
Время: 0.031 c
1-1097937861
InfMag
2004-10-16 18:44
2004.10.31
Правый клик в ListBox


1-1097842230
MegaVolt
2004-10-15 16:10
2004.10.31
Как правильно наследовать свойства?


3-1096909767
}|{yk
2004-10-04 21:09
2004.10.31
При отправлении Cancel - получается ... Insert


14-1097662003
Rentgen
2004-10-13 14:06
2004.10.31
Неужели накрылась видяха?


14-1097599168
Nick Denry
2004-10-12 20:39
2004.10.31
Конвертер SVG -> растр.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский