Cita:
Empezado por Sr_Sombrero
Parece que la función CurDir en VB no funciona al ejecutar el exe desde mi aplicación en Delphi.
Localizado el problema creo que daré un rodeo al mismo.
Gracias
|
Pues independientemente del tema; pues sin duda ixMike te va a dar muy buen asesoramiento me, te comento que alguna vez tuve el mismo problema... no llegue a analizar coómo actua
CurDir pero corregí el problema sin rodeos.
Código:
Private Declare Function GetCurrentDirectoryA& Lib "kernel32" (ByVal nBufferLength&, ByVal lpBuffer$)
Private Sub Command1_Click()
Dim Path$: Path = String(260, 0)
GetCurrentDirectoryA 26, Path
MsgBox Path 'Ej
End Sub
Saludos