Código fuente de VB a Delphi

[carlosprotos]

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.

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

  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

por favar :v

[darkamerico]

Dale una chequeada a este hilo: https://www.clubdelphi.com/foros/showthread.php?t=68379

saludos

[Neftali [Germán.Estévez]]

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)