Текущий архив: 2007.05.20;
Скачать: CL | DM;
Вниз
Передача параметров Найти похожие ветки
← →
webpauk (2007-05-03 15:45) [0]Как передать параметры проге, которую надо открыть - знаю.
а как передать параметры уже открытой проге?
← →
webpauk (2007-05-03 15:45) [1]я имею ввиду:
ShellExecute(...
← →
Reindeer Moss Eater © (2007-05-03 15:48) [2]Четвертый параметр функции
← →
clickmaker © (2007-05-03 15:56) [3]
> ShellExecute(...
а в чем разница, если так?
← →
webpauk (2007-05-03 15:57) [4]
> Reindeer Moss Eater © (03.05.07 15:48) [2]
нда...
← →
DVM © (2007-05-03 15:58) [5]
> а как передать параметры уже открытой проге?
если программа поддерживает принятие файлов на свое окно, то можно сделать иммитацию того что на окно программы бросили файлы. WM_DROPFILES.
← →
webpauk (2007-05-03 17:33) [6]формат команды, please
Sendmessage(WinToSendHandle, WM_DROPFILES, ...)
← →
webpauk (2007-05-03 17:39) [7]например, у меня есть список файлов, записанных в
fLisT(TStringList)
← →
DVM © (2007-05-03 17:39) [8]
Drop := MakeDrop(имена файлов);
if Drop <> 0 then PostMessage(hWin, wm_DropFiles, Drop, 0);
GlobalFree(Drop);
function MakeDrop(const FileNames: array of string): THandle;
var
I, Size: Integer;
Data: PDragInfoA;
P: PChar;
begin
Size := SizeOf(TDragInfoA) + 1;
for I := 0 to High(FileNames) do
Inc(Size, Length(FileNames[I]) + 1);
Result := GlobalAlloc(GHND or GMEM_SHARE, Size);
if Result <> 0 then
begin
Data := GlobalLock(Result);
if Data <> nil then
try
Data.uSize := SizeOf(TDragInfoA);
P := PChar(@Data.grfKeyState) + 4;
Data.lpFileList := P;
for I := 0 to High(FileNames) do
begin
Size := Length(FileNames[I]);
Move(Pointer(FileNames[I])^, P^, Size);
Inc(P, Size + 1);
end;
finally
GlobalUnlock(Result);
end
else
begin
GlobalFree(Result);
Result := 0;
end;
end;
end;
← →
Reindeer Moss Eater © (2007-05-03 22:44) [9]Мда. Какие премудрости.
Если вы уж знаете хендл окна, то чем обычный sendmesage то не угодил?
Страницы: 1 вся ветка
Текущий архив: 2007.05.20;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.047 c
