2 вопроса по Delphi

[N!ckeL]

Всем привет, буду короток:
1) Как можно открыть Мой компьютер програмно, допустим по нажатию кнопки?
2) Какую команду послать Пуску (Shell_TrayWnd), что бы эмулировать нажатие на него? Допустим я пишу:

var
 tray, pusk:hwnd;
begin
 tray:=findwindow('Shell_TrayWnd', nil);
 Pusk:=FindWindowEx(Tray, 0, 'Button', nil);
 SendMessage(pusk, {тип команды и т. д.});
end;

[Greblin]

2.

SendMessage(Self.Handle, WM_SYSCOMMAND, SC_TASKLIST, 0);

[N!ckeL]

Спасибо Greblin, а по поводу первого вопроса никто не знает? Мой Компьютер вроде не папка, но как-то его же запустить?

[Карась]

Сообщение от N!ckeL

Спасибо Greblin, а по поводу первого вопроса никто не знает? Мой Компьютер вроде не папка, но как-то его же запустить?

Надо только понять, что этим должен заниматься проводник. Сообственно его и заставить сделать это:

ShellExecute(0, nil, 'explorer.exe', '/n,', nil, 1);

+ ShellAPI

[_Dmitry]

Sorry, прошу удалить сообщение

[B_N]

Сообщение от N!ckeL

1) Как можно открыть Мой компьютер програмно, допустим по нажатию кнопки?

#include <windows.h>
#include <shlobj.h>

int main()
{
	LPITEMIDLIST		pidl = NULL;
	SHELLEXECUTEINFO	shei;

	SHGetSpecialFolderLocation(NULL, CSIDL_DRIVES, &pidl);	// <----------

	RtlZeroMemory		(&shei, sizeof(SHELLEXECUTEINFO));
	shei.cbSize		= sizeof(SHELLEXECUTEINFO);
	shei.fMask		= SEE_MASK_IDLIST;						// <----------
	shei.lpIDList		= pidl;
	shei.lpVerb		= TEXT("open");
	shei.nShow		= SW_SHOWNORMAL;
	
	ShellExecuteEx(&shei);
	return 0;
}