Главная страница
    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.061 c
15-1138276779
Dec
2006-01-26 14:59
2006.02.19
Работа с Excel


3-1135345421
Бульбаш
2005-12-23 16:43
2006.02.19
Как дополнить НД до необх. кол-ва строк?


15-1138717831
stone
2006-01-31 17:30
2006.02.19
С Днём рождения! 31 января


2-1138582094
Anatoly123
2006-01-30 03:48
2006.02.19
QReports


2-1138979999
User2
2006-02-03 18:19
2006.02.19
коннект с SQL SERVER по сети





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