Консольное приложение

← →
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,

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

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

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

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