Текущий архив: 2004.03.28;
Скачать: CL | DM;

Вниз

Консольное приложение   Найти похожие ветки 

← →
DillerXX ©   (2004-01-16 21:31) [0]

Здраствуйте. У меня как всегда 2 вопроса :)
1. Как узнать имя запускаемого файла, если это консольное приложение и я не хочу использовать модуль Forms?
2. Почему в консольном приложении не работает ShellExecute, хотя все нужные модули есть?
Заранее спасибо!

---

← →
panov ©   (2004-01-16 21:33) [1]

1. ParamStr(0)
2. приведи код.

---

← →
DillerXX ©   (2004-01-16 21:51) [2]


unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs,ShellAPI;

type
 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 ShellExecute(Application.Handle,   Pchar("Open"),Pchar("C:\Windows\Rundll32.exe"),   Pchar("krnl386.exe,exitkernel"),   Pchar("C:\Windows"),SW_SHOWNORMAL);
end;

end.

Параметры ShellExecute это первое что пришло в голову, так что это не вирус. А в консольной проге те же самые модули, а ничего не работает... :( А за первое спасиба.

---

← →
Игорь Шевченко ©   (2004-01-16 23:23) [3]

> ShellExecute(Application.Handle,


ShellExecute (HWND_DESKTOP,

Все-таки, совет, пиши полезные программы

---

← →
DillerXX ©   (2004-01-17 13:50) [4]

Нет, не то! Код который я привёл, работает. А в консольной проге не работает! Даже если подставить вместо Application.Handle HWND_DESKTOP. Ошибка мне кажется не в параметрах, а в чём-то другом. А в чём? Компилятор пишет Missing operator or semicolon.

---

← →
DillerXX ©   (2004-01-17 13:55) [5]

Удалено модератором
Примечание: Выражай свой восторг иначе :)

---

Страницы: 1 вся ветка

Текущий архив: 2004.03.28;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.024 c