function GetNextStepStr: string;
var
hInst: HINSTANCE;
Buffer: array[0..64] of Char;
function DlgProc(hDlg:HWND, uMsg:UINT, wParam:WPARAM,
lParam:LPARAM): BOOL;
begin
if uMsg=WM_INITDIALOG then
begin
GetWindowText(GetDlgItem(hDlg,
12324), Buffer, 64);
EndDialog(hDlg, 0);
end;
Result := 0;
end;
begin
hInst := LoadLibrary('comctl32.dll');
DialogBoxParam(hInst, LPCSTR(1020), Nil, @DlgProc, 0);
FreeLibrary(hInst); Result := Buffer;
end;