profile="http://gmpg.org/xfn/11"> Как ΠΏΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒ список ΡΠΏΠ΅Ρ†ΠΈΠ°Π»ΡŒΠ½Ρ‹Ρ… ΠΊΠ°Ρ‚Π°Π»ΠΎΠ³ΠΎΠ² Windows 7 Π² 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅ 8.0,8.1,8.2? | Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΡƒ ΠΎ Ρ€Π°Π±ΠΎΡ‚Π΅ с 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅, Pascal, Паскаль

Как ΠΏΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒ список ΡΠΏΠ΅Ρ†ΠΈΠ°Π»ΡŒΠ½Ρ‹Ρ… ΠΊΠ°Ρ‚Π°Π»ΠΎΠ³ΠΎΠ² Windows 7 Π² 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅ 8.0,8.1,8.2?

Как ΠΏΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒ список ΡΠΏΠ΅Ρ†ΠΈΠ°Π»ΡŒΠ½Ρ‹Ρ… ΠΊΠ°Ρ‚Π°Π»ΠΎΠ³ΠΎΠ² Windows 7 Π² 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅ 8.0,8.1,8.2?
Π’ΠΎΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅ΠΌΡΡ ΠΎΠ±ΡŠΠ΅ΠΊΡ‚ΠΎΠΌ Windows Script Host.
ΠŸΡ€ΠΈΠΌΠ΅Ρ€:

ΠŸΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π° Π‘ΠΏΠΈΡΠΎΠΊΠšΠ°Ρ‚Π°Π»ΠΎΠ³ΠΎΠ²()
	TempAs = Новый COMΠžΠ±ΡŠΠ΅ΠΊΡ‚("Wscript.Shell");
	Folders=TempAs.SpecialFolders;
	Для КаТдого Π‘Ρ‚Ρ€ Из Folders Π¦ΠΈΠΊΠ»
		Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ(" "+Π‘Ρ‚Ρ€);
	ΠšΠΎΠ½Π΅Ρ†Π¦ΠΈΠΊΠ»Π°;
ΠšΠΎΠ½Π΅Ρ†ΠŸΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹

ΠšΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΈ Π·Π°ΠΏΡ€Π΅Ρ‰Π΅Π½Ρ‹.