如何把下面的几行代码转到D来，谢谢

Question

vb
1. ttext = StrConv(SSTR, 128)
2. FORM1.HORPIC(0).Width 
   Form1.VerPic(0).Height
3. Unload FORM1.VERPIC(I)
4. Load FORM1.HORPIC(I)
5. Wnd = Screen.ActiveForm.hwnd
6. FORM1.Picture1.Picture = Clipboard.GetData()
谢谢

Answer 1

5 GetForegroundWindow
6 Image1.Picture.LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0)

Answer 2

ttext = StrConv(SSTR, 128) 
把sstr由Unicode转成系统的缺省码
FORM1.HORPIC(0).Width 取窗体的设计宽度
3. Unload FORM1.VERPIC(I) 
4. Load FORM1.HORPIC(I) 重载?

Answer 3

请问在D中，如何把Unicode转为系统的缺省码还有就是 Unload Form1.VerPic(i) 和 Load Form1.HorPic(i) 这两个是什么意思!在D中如何实现!谢谢

Answer 4

Unload Form1.VerPic(i) 和 Load Form1.HorPic(i) 你先找到Unload  Load 过程看看，毕竟这里是DELPHI区不是VB区，比较偏门的东西知道的人少

Answer 5

INI文件
[ini]
width=200
height=200
X=8
Y=56
排列=1
;0:水平；1：垂直将image1根据x分成若干等份，其中一些显示图像，一些不显示(黑色)
(如果排列=水平，根据x, 把form的width平分，如果排列=垂直，根据x, 把form的height平分)
效果如下(垂直)：width 1---------------------------------------200
|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图| height
|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|   1
|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|   |
|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|   |
|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|   |
|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|   |
|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|   |
|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|   |
|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|   |
...                                                 ...
|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|   200
    1     2     3     4     5     6     7     8水平：
width: 1~~200 height: 1~~200
------------------------------------------------
黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑
------------------------------------------------
图图图图图图图图图图图图图图图图图图图图图图图图  1
------------------------------------------------
黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑  
------------------------------------------------
图图图图图图图图图图图图图图图图图图图图图图图图  2
------------------------------------------------
黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑
------------------------------------------------
图图图图图图图图图图图图图图图图图图图图图图图图  3
...
------------------------------------------------
黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑
------------------------------------------------
图图图图图图图图图图图图图图图图图图图图图图图图  8
------------------------------------------------附VB源码：排列=0
        For I = 1 To 31
            Unload GAME.VERPIC(I)
        Next I
        YDLT = (GAME.Picture1.Width - 2) / XDOTS
        XDLT = (GAME.Picture1.Height - 2) / YDOTS
        I = 1
        Load GAME.HORPIC(I)
        With GAME.HORPIC(I)
            .Top = 1
            .Left = 0
            .Height = XDLT / 4
            .Width = GAME.HORPIC(I).Width
            .ZOrder (0)
        End With
        GAME.HORPIC(I).Visible = True
        For I = 2 To YDOTS ' + 1
            Load GAME.HORPIC(I)
            With GAME.HORPIC(I)
                .Top = ((I - 2) + 3 / 4) * XDLT + 1
                .Left = 0
                .Height = XDLT / 2
                .Width = GAME.HORPIC(I).Width
                .ZOrder (0)
            End With
            GAME.HORPIC(I).Visible = True
        Next I
        Load GAME.HORPIC(I)
        With GAME.HORPIC(I)
            .Top = ((I - 2) + 3 / 4) * XDLT + 1
            .Left = 0
            .Height = XDLT / 4
            .Width = GAME.HORPIC(I).Width
            .ZOrder (0)
        End With
        GAME.HORPIC(I).Visible = True
        
排列=1
        For I = 1 To 31
            Unload GAME.HORPIC(I)
        Next I
        XDLT = (GAME.Picture1.Width - 2) / YDOTS
        YDLT = (GAME.Picture1.Width - 2) / XDOTS
        I = 1
        Load GAME.VERPIC(I)
        With GAME.VERPIC(I)
            .Top = 0
            .Left = 1
            .Width = XDLT / 4
            .Height = GAME.VERPIC(I).Height
            .ZOrder (0)
        End With
        GAME.VERPIC(I).Visible = True
        For I = 2 To YDOTS
            Load GAME.VERPIC(I)
            With GAME.VERPIC(I)
                .Left = ((I - 2) + 3 / 4) * XDLT + 1
                .Top = 0
                .Width = XDLT / 2
                .Height = GAME.VERPIC(I).Height
                .ZOrder (0)
            End With
            GAME.VERPIC(I).Visible = True
        Next I
        Load GAME.VERPIC(I)
        With GAME.VERPIC(I)
            .Left = ((I - 2) + 3 / 4) * XDLT + 1
            .Top = 0
            .Width = XDLT / 4
            .Height = GAME.VERPIC(I).Height
            .ZOrder (0)
        End With
        GAME.VERPIC(I).Visible = True