FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Código fuente de VB a Delphi
Me gustaria saber como podria poner este codigo fuente de VB a Delphi en un timer.
Alguien podria ayudarme. No soy bueno en delphi y desconosco las diferencias y modulos. Código:
Imports Microsoft.VisualBasic Imports Microsoft.VisualBasic.CompilerServices Imports System Imports System.Collections Imports System.Collections.Generic Imports System.ComponentModel Imports System.Diagnostics Imports System.Drawing Imports System.IO Imports System.Runtime.CompilerServices Imports System.Windows.Forms Imports System.Environment Imports Microsoft.Win32 Código:
Try Dim folderPath As String = Environment.GetFolderPath(SpecialFolder.Windows) FileSystem.FileClose(New Integer() {1}) FileSystem.FileClose(New Integer() {2}) If My.Computer.FileSystem.FileExists((folderPath & "\xspirit.sys")) Then FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1) Else File.WriteAllBytes((folderPath & "\xspirit.sys"), New Byte() {0}) FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1) End If If My.Computer.FileSystem.FileExists((folderPath & "\xhunter1.sys")) Then FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1) Else File.WriteAllBytes((folderPath & "\xhunter1.sys"), New Byte() {0}) FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1) End If Catch exception1 As Exception ProjectData.SetProjectError(exception1) Dim ex As Exception = exception1 ProjectData.SetProjectError(ex) Dim exception As Exception = ex ProjectData.ClearProjectError() ProjectData.ClearProjectError() End Try |
#2
|
|||
|
|||
Saludos
|
#3
|
||||
|
||||
Para obtener directorios de sistema puedes revisar estos hilos:
http://www.clubdelphi.com/~marcsc/fo...ad.php?t=26419 Para comprobar si un fichero existe, tienes la función FileExists de la unit System.SysUtils; Aquí tienes la ayuda: http://docwiki.embarcadero.com/Libra...ils.FileExists En es misma unit, encontrarás muchos otros procedimientos útiles sobre ficheros: http://docwiki.embarcadero.com/Libra...Utils#Routines Para abrir un fichero, tal y como se hare en el ejemplo que has puesto, aquí tienes los procedimientos que se usan: http://docwiki.embarcadero.com/RADSt...Output_Support Y aquí, por ejemplo, tienes código de ejemplo de cómo utilizarlas: http://docwiki.embarcadero.com/CodeE...Append_(Delphi) http://docwiki.embarcadero.com/CodeE...ckRead_(Delphi) http://docwiki.embarcadero.com/CodeE...ewrite_(Delphi)
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Código fuente de la Cara Oculta de Delphi 6 de Ian Marteens | tuni | Varios | 10 | 27-07-2015 14:42:30 |
Convertir este código fuente the CSharp a Delphi | Blade_Is_One | .NET | 0 | 20-12-2012 14:59:51 |
ANN: AnyNET-Delphi: Herramienta para generar codigo fuente Delphi desde :NET | mamcx | Noticias | 7 | 21-05-2007 02:12:36 |
codigo fuente o programa en delphi | Ravent | OOP | 5 | 27-05-2006 16:04:33 |
Codigo fuente de C en compilacion con Delphi | JXJ | Varios | 3 | 11-04-2006 21:50:36 |
|