Dephi中资源文件的应用

领测软件测试网

ID_Edit = 10001; 
ID_Selet = 10002; 
ID_Setup = 10003; 
ID_Quit = 10004; 
ID_Exit = 10005; 
{$R Demo.Res} 
var 
MainWin: HWND; 

function My_Gettext: string; 
var 
Textlength: Integer; 
Text: PChar; 
s: string; 
begin 
TextLength := GetWindowTextLength(GetDlgItem(MainWin, ID_Edit)); 
GetMem(Text, TextLength + 1); 
GetWindowText(GetDlgItem(MainWin, ID_Edit), Text, TextLength + 1); 
s := text; 
FreeMem(Text, TextLength + 1); 
Result := s; 
end; 

function Getmyname: string; 

文章来源于领测软件测试网 https://www.ltesting.net/