Foros Club Delphi - Código fuente de VB a Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Código fuente de VB a Delphi (https://www.clubdelphi.com/foros/showthread.php?t=92142)

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

:D:D:D:D por favar :v

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

saludos

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)