วันนี้เล่น ไปเล่นมาเล่น เจอ นะครับ
สำหรับคนที่ต้องการเขียน Delphi เพื่อเปิดโปรแกรมต่างของ Windowsนะครับ
โดยผ่านทางคำสั่ง ShellExecute

**********************************************************
ShellExecute(handle, 'Open',Pchar('string'), nil, nil, SW_SHOWNORMAL);

เช่น

ShellExecute(handle, 'Open',Pchar('::{20D04FE0-3AEA-1069-A2D8-08002B30309D}'), nil, nil, SW_SHOWNORMAL);
ใช้เปิด My computer
**********************************************************
//ใช้ ShellExecute
shell:Personal//My Doc
::{20D04FE0-3AEA-1069-A2D8-08002B30309D} // My computer
::{645FF040-5081-101B-9F08-00AA002F954E}//Reclycle
::{208D2C60-3AEA-1069-A2D7-08002B30309D}//My Network Places
control//Control Panel
notepad//notepad
calc//calculator
mspaint//paint
WordPad//WordPad
*********************หมายเหตุ*********************
ตอนนี้ผมลองเล่นแต่ใน Xp นะครับ 2000 ก็ใช้ได้แต่ต่ำกว่านี้ไม่แน่ใจ
ถ้าต้องการทดสอบ ใช้ Run ของ Window ทดสอบก็ได้นะครับ
************************************************