Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.04.2016, 01:15   #1
АлександрDelphi
Форумчанин
 
Аватар для АлександрDelphi
 
Регистрация: 28.02.2016
Сообщений: 115
По умолчанию Нужно перенести код с С# на Delphi

Код:
private void ascButton1_Click(object sender, EventArgs e)
        {
            if (File.Exists(this.label1.Text + "Game.log"))
            {
                File.Delete(this.label1.Text + "Game.log");
                MessageBox.Show("Почистил", "Готово", MessageBoxButtons.OK, MessageBoxIcon.Asterisk);
            }
            else
            {
                MessageBox.Show("Уже удалён", "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Asterisk);
            }
        }
И такой на вывод игры где она установлена
Код:
private void timer2_Tick(object sender, EventArgs e)
        {
            string str = "Game.exe";
            string text1 = WindowsIdentity.GetCurrent().Name.Split(new char[] { '\\' })[1];
            ManagementObjectSearcher searcher = new ManagementObjectSearcher("Select * from Win32_Process Where Name = \"" + str + "\"");
            foreach (ManagementObject obj2 in searcher.Get())
            {
                string[] args = new string[] { string.Empty };
                if (Convert.ToInt32(obj2.InvokeMethod("GetOwner", args)) == 0)
                {
                    string text2 = args[0];
                }
Код:
  private void ascButton2_Click(object sender, EventArgs e)
        {
            if (Directory.Exists(this.label1.Text + "LogBackups"))
            {
                Directory.Delete(this.label1.Text + "LogBackups", true);
                Directory.CreateDirectory(this.label1.Text + "LogBackups");
                MessageBox.Show("Почистил", "Готово", MessageBoxButtons.OK, MessageBoxIcon.Asterisk);
            }
            else
            {
                MessageBox.Show("Там уже чисто", "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Asterisk);
            }
        }
Надо перенести на delphi подскажите как буду блогодарен !

Последний раз редактировалось АлександрDelphi; 05.04.2016 в 01:19.
АлександрDelphi вне форума Ответить с цитированием
Старый 05.04.2016, 08:10   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

2 называется WMI, примеры работы легко гуглятся, а с 1 и 3 непонятно в чем могут быть затруднения.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нужно изменить код в лабораторных по Delphi lezg1n Фриланс 7 16.12.2012 20:19
Очень нужно запустить код delphi Const-n Помощь студентам 4 08.12.2011 23:10
Нужно перевести код с Delphi на C++ Дима я Общие вопросы C/C++ 2 28.06.2010 21:15
Нужно переделать код с Delphi на C++ Builder POPOV Помощь студентам 2 12.11.2007 22:51