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

Вниз

как можно получить информацию о выполняемом файле по LNK/PIF?   Найти похожие ветки 

 
grumbler   (2004-07-19 19:52) [0]

Столкнулся с проблемой - надо каким-то макаром узнать реальное имя исполняемого файла, если есть только его линк. Никто с таким не сталкивался? может ртфм куда-нить отправите...


 
Vladimir Kladov   (2004-07-19 21:27) [1]

Lnk.pas


 
Ajax ©   (2004-07-19 23:12) [2]

Вот, не помню где взял.

 function GetInformationFromLink(LinkFileName:String;
                                 var Path, WorkingDirectory, Arguments:string;
                                 var HotKey: word; var ShowCMD: integer):boolean;
 var
  MyObject: IUnknown;
  MySLink: IShellLink;
  MyPFile: IPersistFile;
  FileInfo: TWin32FINDDATA;
  WidePath: array [0..MAX_PATH] of WideChar;
  Buff: array [0..MAX_PATH] of Char;
 begin
  Result := false;
  if not fileexists(Linkfilename) then exit;
  CoInitialize(nil);
  CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER, IUnknown, MyObject);
  MyPFile := MyObject as IPersistFile;
  MySLink := MyObject as IShellLink;
  StringToWideChar(LinkFileName, WidePath, SizeOf(WidePath));
  MyPFile.Load(WidePath, STGM_READ);
  MySLink.GetPath(Buff, Max_PATH, FileInfo, SLGP_UNCPRIORITY);
  Path:=Buff;
  MySLink.GetWorkingDirectory(Buff, Max_PATH);
  WorkingDirectory:=Buff;
  MySLink.GetArguments(Buff, Max_PATH);
  Arguments:=Buff;
  MySLink.GetHotkey(HotKey);
  MySLink.GetShowCmd(ShowCMD);
  Result:=true;
  CoUninitialize;
 end;


Зависимости вроде shlobj и activex.



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

Форум: "KOL";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.039 c
1-1106831301
qwe
2005-01-27 16:08
2005.02.13
инсталяция


3-1105535446
Виталий Панасенко
2005-01-12 16:10
2005.02.13
Определение параметров драйверов в БДЕ


14-1106542876
Kerk
2005-01-24 08:01
2005.02.13
Филармония.


8-1098993179
aladdin
2004-10-28 23:52
2005.02.13
Работа с видео


1-1107042906
MadGhost
2005-01-30 02:55
2005.02.13
Как переместить какой нибудь компонент по форме?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский