Hallo allerseits,
habe da folgendes Problem: Ich möchte meine Programme (in diesem Fall Thunderbird und Firefox) über
jeweils eine Checkbox auswählen und durch ButtonClick öffnen.
Da aber das Thunderbird in einer mit TrueCrypt verschlüsselten Festplatte (Drive X) liegt, muß ich diese zuvor mit TrueCrypt mounten.
Mit Try Ecxept möchte ich nun erreichen, daß sich Thunderbird sofort öffnet, falls 'X' schon gemountet ist. Wenn 'X' allerdings nicht gemountet ist, soll sich TrueCrypt öffnen und nach dem mounten dann Thunderbird.
Hier nun mein Quellcode:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if
CheckBox1.Checked
then
shellexecute (
handle, '
open', '
C:\Programme\Mozilla Firefox\Firefox.exe',
nil,
nil, sw_shownormal);
if
CheckBox2.Checked
then
begin
try
shellexecute (
handle, '
open', '
X:\Thunderbird\Thunderbird.exe',
nil,
nil, sw_shownormal);
except
shellexecute (
handle, '
open', '
C:\Programme\TrueCrypt\TrueCrypt.exe',
nil,
nil, sw_shownormal);
end;
end;
Ich hoffe ihr könnt mir da mal helfen.
Danke schonmal.
P.S. Bin noch blutigster Anfänger!
[edit=Sharky]Quoting-Tags durch Delphi-Tags ersetzt. Mfg, Sharky[/edit]