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

Вниз

Как определить количество файлов, помещённых на значок программы?   Найти похожие ветки 

 
Volf_555   (2005-12-04 19:46) [0]

Как определить количество файлов, которые были перенесены на значок моей программы, а также их имена?


 
XProger ©   (2005-12-04 20:16) [1]

ParamCount
ParamStr(i)


 
gdaujk ©   (2005-12-05 12:24) [2]

function CommandLineToArgvW(lpCmdLine: LPCWSTR; var pNumArgs: Integer): PPWideChar; stdcall;

implementation

function CommandLineToArgvW; external "shell32.dll" name "CommandLineToArgvW";

{gdaParamStr}

function gdaParamStr(aLines: TStrings): string;
var
 NumArgs, i: Integer;
 pArgs: PPWideChar;
 pTemp: Pointer;
 hMem: HGLOBAL;
begin
 pArgs := CommandLineToArgvW(GetCommandLineW, NumArgs);
 pTemp := pArgs;
 for i := 1 to NumArgs do
 begin
   aLines.Add(pArgs^);
   Inc(pArgs);
 end;
 hMem := GlobalHandle(pTemp);
 GlobalFree(hMem);
 //HeapFree(GetProcessHeap(), 0, pTemp);
end;


,вызов:

gdaParamStr(Memo1.Lines);

Имена заносятся в Lines, количество - NumArgs...

PS: только для Win2k...


 
Volf_555   (2005-12-05 21:37) [3]

thank



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

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

Наверх




Память: 0.44 MB
Время: 0.054 c
15-1137870228
ArtemESC
2006-01-21 22:03
2006.02.19
А что вы думаете о Greenpiece?


9-1118075296
novouralsk
2005-06-06 20:28
2006.02.19
Помогите хорошим примером!


4-1133760007
Andron.Ru
2005-12-05 08:20
2006.02.19
Горячая клавиша на создание папки в активном окне


1-1137755325
Dec
2006-01-20 14:08
2006.02.19
Печать из Delphi


15-1138180213
Red_imp
2006-01-25 12:10
2006.02.19
Народ посоветуйте программу для учета трафика





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