建议Image1.Picture = LoadPicture("D:\自己编写的程序\记事本\smiley - depressed.ico")
Image1.Picture = LoadPicture("D:\自己编写的程序\记事本\smiley - happy.ico")
改为Image1.Picture = LoadPicture(App.Path & "\smiley - depressed.ico")
Image1.Picture = LoadPicture(App.Path & "\smiley - happy.ico")
这样就不受目录的限制了