ab.com コミュニティ

• 引用 Ryo

by Ryo » 2006年7月02日(日) 18:10

• 引用 Ryo

by Ryo » 2006年7月02日(日) 18:07

    Sub MainWnd_Create ( ByRef CreateStruct As CREATESTRUCT )
        Dim FullPath As BytePtr
        Dim NameByte As Integer
        Dim FileName As BytePtr
        FullPath = malloc ( 24 )
        lstrcpy ( FullPath , "C:\WINDOWS\explorer.exe" )
        NameByte = GetFileTitle ( FullPath , FileName , 0 )
        FileName = malloc ( NameByte )
        GetFileTitle ( FullPath , FileName , NameByte )
        SetWindowText ( hMainWnd , FileName )
        free ( FileName )
    End Sub

• 引用 雷電

by 雷電 » 2006年7月02日(日) 12:09

• 引用 ゲスト

by ゲスト » 2006年7月01日(土) 23:33

• 引用 雷電

by 雷電 » 2006年7月01日(土) 14:39

• 引用 Toshi

by Toshi » 2006年7月01日(土) 14:28

Dim FILEPATH[MAX_PATH-1] As Byte

• 引用 雷電

by 雷電 » 2006年7月01日(土) 14:25

Dim FILEPATH[MAX_PATH-1] As BytePtr
Dim FULL As BytePtr

GetFileTitle(FULL,FILEPATH,MAX_PATH)
SetWindowText( hMainWnd, FILEPATH)

Re: 開いているファイルのフルパスからの切り出し

• 引用 Tomorrow

by Tomorrow » 2006年6月30日(金) 14:33

• 引用 雷電

by 雷電 » 2006年6月29日(木) 22:53

• 引用 雷電

by 雷電 » 2006年6月29日(木) 22:52

Dim i As Long

i=lstrlen(File)-1
Do
    If File=Asc("\") Then
          File=0
          Exit Do
    End If
    i=i-1
    If i<0 Then Exit Do
Loop

• 引用 Toshi

by Toshi » 2006年6月29日(木) 22:40

開いているファイルのフルパスからの切り出し

• 引用 雷電

by 雷電 » 2006年6月29日(木) 22:24