Dephi中資源文件的應用

領測軟件測試網

ResultStrings: TStrings; 
DosError: integer; 
SearchRec: TsearchRec; 
begin 
ResultStrings := TStringList.Create; 
DosError := FindFirst(ExtractFilePath(ParamStr(0)) + ’*.dll’, faAnyFile, SearchRec); 
while DosError = 0 do 
begin 
ResultStrings.Add(ChangeFileExt(SearchRec.Name, ’’)); 
DosError := FindNext(SearchRec); 
end; 
FindClose(SearchRec); 
Result := ResultStrings; 
end; 

procedure TForm1.SetActiveLanguage(LanguageName: string); 
var 
Hdll: Hmodule; 
MyChar: array[0..254] of char; 
DllFileName: string; 
begin 

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