[karika]

3amo كتب :السلام عليكم ورحمة الله
للاسف الكود يستخرج الملف معطوب
و طريقة استعمالك سليمة
وهذا هو الكود الصحيح بعد تجربته

PHP كود :

Private Sub Command1_Click()
On Error GoTo 5
    Dim Res() As Byte
    Dim Location As String
    Location = App.Path & "\radio.exe"
    Res = LoadResData(101, "CUSTOM")
    FFile = FreeFile
    Open Location For Binary Shared As #FFile
    Put #FFile, 1, Res
5:  Close #FFile
End Sub 


واتمنى لك التوفيق

لقد رايت هذا الكود اصغر ويمكنه ان يحل مكان الكود أعلاه...
[COLOR="#0000FF"]Shell "radio.exe", WindowsStyle
[/COLOR]