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

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

Вернуться   Форум программистов > .NET Frameworks (точка нет фреймворки) > Общие вопросы .NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.06.2016, 11:41   #1
АлександрDelphi
Форумчанин
 
Аватар для АлександрDelphi
 
Регистрация: 28.02.2016
Сообщений: 115
По умолчанию Помогите с кодом мне надо переделать с delphi на С#

Всем добрый день помогите мне переделать код с delphi на С# .
1) проверка версии
Код:
procedure TForm1.FormCreate(Sender: TObject);
  var
  ver: string;
  http_up: THTTPSend;
  reslist: TStringList;
  Stream:TMemoryStream;
begin
   ver := 'V8.4S';
  http_up := THTTPSend.Create;
  reslist := TStringList.Create;
  try
    http_up.HTTPMethod('Get', 'http://*****************/Warface/Ver.txt');
    reslist.LoadFromStream(http_up.Document);
    if trim(reslist.text) <> ver then begin
      application.Terminate;
      Application.CreateForm(TForm1, Form1);
    end;
  except
    application.Terminate;
    Application.CreateForm(TForm1, Form1);
  end;
  http_up.Free;
  reslist.Free;
end;
2) Код на рандомное значение окна
Код:
function RandomPassword(PLen: Integer): string;
 var
   str: string;
begin
     Randomize;
   //string with all possible chars
  str    := '12345QWAESTZFDCVYGHBNMJIO#$LKM';
   Result := '22';
   repeat
     Result := Result + str[Random(Length(str)) + 1];
   until (Length(Result) = PLen)
 end;
function RandomWord(dictSize, lngStepSize, wordLen, minWordLen: Integer): string;
begin
  Result := '';
   if (wordLen < minWordLen) and (minWordLen > 0) then
     wordLen := minWordLen
   else if (wordLen < 1) and (minWordLen < 1) then wordLen := 1;
   repeat
     Result := Result + Chr(Random(dictSize) + lngStepSize);
   until (Length(Result) = wordLen);


end;
3) на Кил процесс
Код:
function KillProcess(ExeName: string): LongBool;
var
 B: BOOL;
 ProcList: THandle;
 PE: TProcessEntry32;
begin
 Result := False;
 ProcList := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 PE.dwSize := SizeOf(PE);
 B := Process32First(ProcList, PE);
 while B do begin
   if (UpperCase(PE.szExeFile) = UpperCase(ExtractFileName(ExeName))) then
     Result := TerminateProcess(OpenProcess($0001, False, PE.th32ProcessID), 0);
    B := Process32Next(ProcList, PE);
 end;
 CloseHandle(ProcList);
end; 

function processExists(exeFileName: string): Boolean; 
var 
ContinueLoop: BOOL; 
FSnapshotHandle: THandle; 
FProcessEntry32: TProcessEntry32; 
begin 
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); 
FProcessEntry32.dwSize := SizeOf(FProcessEntry32); 
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); 
Result := False; 
while Integer(ContinueLoop) <> 0 do 
begin 
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = 
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = 
UpperCase(ExeFileName))) then 
begin 
Result := True; 
end; 
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); 
end; 
CloseHandle(FSnapshotHandle); 
end;
Код:
if processExists('Game.exe') then
ShowMessage('Warface будет закрыта');
KillProcess('Game.exe');
Закрытие по заголовку
4)
Код:
SendMessage(FindWindow(nil, 'DEDE'), WM_CLOSE, 0, 0);
Запрет на изменение название приложения win Form
5)
Код:
procedure TForm1.tmr1Timer(Sender: TObject); // Таймер
Var
h : THandle;
begin
  if ExtractFileName(Application.ExeName)<> 'Imperial.exe'  then
  begin
    Application.Terminate;
    CloseHandle(h);
  end;
end;
6)
Код:
procedure TForm1.btn3Click(Sender: TObject);.//кнопка
var
  buttonSelected : Integer;
begin
if processExists('Game.exe') then

else
ShowMessage('Запустите игру');
ShellExecute(Handle, 'open','mailrugames://play/0.1177', nil, nil, SW_SHOWNORMAL);

end;
Помогите пожалуйста )
Готов заплатить, хоть тут и не раздел фриланс!
Умел бы переделывать переделал бы сам..
А то я с delphi ушел перешел на си шарп а проект свой сейчас пытаюсь раздербанить да в паблик!
АлександрDelphi вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Надо из цикла с параметром, переделать в цикс с предусловие помогите Uourin Помощь студентам 1 04.04.2016 17:01
SOS Надо написать код в С++ ( есть образец, надо переделать просто!) Беата Общие вопросы C/C++ 9 08.12.2010 22:13
Помогите с кодом на Delphi Saka Помощь студентам 17 13.12.2009 17:41
Помогите решить 2 задачки срочно надо а то меня повешают на практике мне надо к 2 июня!!! серега222 Паскаль, Turbo Pascal, PascalABC.NET 0 27.05.2009 17:46
[B]Народ! Проверки мне верно или не верно? мне надо завтра сдавать[/B] Vladislav_87 Паскаль, Turbo Pascal, PascalABC.NET 6 04.06.2008 14:34