Dephi中資源文件的應用

領測軟件測試網

　　procedure TForm1.FormCreate(Sender:TObject);  

　　var  

　　iconname:string;  

　　piconame:pchar;  

　　begin  

　　piconame:=stralloc(7);  

　　//建立PCHAR類型的字符串  

　　for idx:=0 to 5 do  

　　begin  

　　wicon[idx]:=ticon.create;//建立TICON型對象  

　　iconname:=’icon’+inttostr(idx);  

　　strpcopy(piconame,iconname);  

　　//將STRING類型轉換成PCHAR類型  

　　wicon[idx].handle:=loadicon(hinstance,piconame);  

　　//調用WINDOWSAPI中的LOADICON函數  

文章來源于領測軟件測試網 http://www.kjueaiud.com/