Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
VovaPety
-27 / 0 / 0
Регистрация: 24.03.2017
Сообщений: 17
1

Ошибка при компиляции

24.03.2017, 11:55. Просмотров 193. Ответов 5
Метки нет (Все метки)

выдает ошибки на 46 и 47 строках, как исправить ?
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Shellapi, Tlhelp32, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm13 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form13: TForm13;
 
implementation
 
{$R *.dfm}
procedure mykilltask;
const
 PROCESS_TERMINATE = $0001;
var
 FSnapshotHandle: THandle;
 FProcessEntry32: TProcessEntry32;
 ress:integer;
begin
 FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ress:=Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE,BOOL(0),GetCurrentProcessId),0));
 if ress<>0 then
 CloseHandle(FSnapshotHandle)
 else
 CloseHandle(FSnapshotHandle);
end;
 
procedure RunusAdmin(hwnd:HWND; afile:string; aparam:string);
var sie:TshellExecuteInfoA;
begin
fillchar(sie,sizeof(sie),0);
sie.cbSize:=sizeof(sie);
sie.Wnd:=hwnd;
sie.fMask:=SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
sie.lpVerb:='runas';
sie.lpFile:=Pchar(afile); // тута 
sie.lpParameters:=pchar(aparam);// и тута
sie.nShow:=SW_SHOWNORMAL;
if not ShellExecuteEx(@sie) then
begin
sleep(2000);
ShellExecute(0,nil,PChar(paramstr(0)),nil,nil,SW_Show);
end;
end;
 
procedure TForm13.Button1Click(Sender: TObject);
begin
if paramstr(1)<>'runas' then
begin
RunusAdmin(0,PChar(paramstr(0)),PChar('runas'));
mykilltask;
end;
end;
а также
[dcc32 Fatal Error] Project9.dpr(5): F2063 Could not compile used unit 'Unit13.pas'
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.03.2017, 11:55
Ответы с готовыми решениями:

Ошибка при компиляции
const PROGR = Label1.Caption + Edit1.text; //Path...

Ошибка при компиляции
Здравствуйте. при компиляции программы выдает ошибку. быстрый поиск по инету...

Ошибка при компиляции
Доброго времени суток! почему при компиляции возникает ошибка brain.dpr(5):...

Ошибка при компиляции
procedure TForm1.FormCreate(Sender: TObject); begin bmp := TBitmap.Create;...

ошибка при компиляции
RLINK32: Out of memory! после токого как нажал кнопку компиляции выдало такую...

5
Matan!
Delphi/Java/DB Dev + Math
462 / 341 / 123
Регистрация: 31.05.2013
Сообщений: 2,781
Записей в блоге: 5
Завершенные тесты: 2
24.03.2017, 12:49 2
Неправильное применение PChar. Какой именно символ строки Вы рассматриваете?
Что такое TshellExecuteInfoA?

Добавлено через 3 минуты
Лучше так:
Delphi
1
2
Pchar(afile[0]); 
pchar(aparam[0]);
0
D1973
Модератор
3572 / 2575 / 1257
Регистрация: 21.01.2014
Сообщений: 10,818
Записей в блоге: 3
Завершенные тесты: 1
24.03.2017, 13:00 3
Цитата Сообщение от VovaPety Посмотреть сообщение
procedure RunusAdmin(hwnd:HWND; afile:string; aparam:string);
Цитата Сообщение от VovaPety Посмотреть сообщение
RunusAdmin(0,PChar(paramstr(0)),PChar('runas'));
Как-то интересно... Функция должна получать String, а получает PChar, который затем в теле функции снова приводится к PChar...
0
Matan!
Delphi/Java/DB Dev + Math
462 / 341 / 123
Регистрация: 31.05.2013
Сообщений: 2,781
Записей в блоге: 5
Завершенные тесты: 2
24.03.2017, 13:02 4
D1973, скорее всего это будет следующий вопрос ТС-а
0
Matan!
Delphi/Java/DB Dev + Math
462 / 341 / 123
Регистрация: 31.05.2013
Сообщений: 2,781
Записей в блоге: 5
Завершенные тесты: 2
24.03.2017, 14:04 5
VovaPety, вместо обиды, лучше прислушайтесь к совету. Я Вам написал, как исправить ошибку, но этим дело может не ограничиться(по причинам, указанным D1973).

Добавлено через 5 минут
Сравните строки:
procedure RunusAdmin(hwnd:HWND; afile:string; aparam:string);
и
RunusAdmin(0,PChar(paramstr(0)),PChar('runas'));


PChar вернёт Вам число, а Вам нужна строка. Может выскочить ошибка несовместимости типов.
0
GoodWeather
142 / 141 / 59
Регистрация: 28.02.2017
Сообщений: 858
24.03.2017, 15:24 6
0
24.03.2017, 15:24
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.03.2017, 15:24

Ошибка при компиляции
Парни, подскажите пожалуйста, почему не компилируется код? я в дельфи не шарю...

ошибка при компиляции
Доброе утро, уверена, все банально просто, но прошу помощи. При компиляции...

Ошибка при компиляции
при компиляции програми выбивает ошибку: Project1.exe raised exeption class...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru