Shell execute mit Power point

FIGHT4RIGHTS

Kaiser

Dabei seit: 28.07.2003

Beiträge: 1 246

1

Sonntag, 3. April 2005, 20:05

Hi Leute hab n kleines Prob will das mit einem shellexecute befehl ein ppt datei aufgerufen wird geht aber net hier die source:

procedure TMPForm.Auswhlen1Click(Sender: TObject);
begin
// Bed.1
if RadioButton11.checked=true then
begin
ShellExecute(handle,'open','data_ppt/projekt_janina/janina.ppt',nil,nil,SW_ShowNormal);
end;

// Bed.2
if RadioButton6.checked=true then
begin
ShellExecute(handle,'open','data_ppt/projekt_gina_linda/gina_linda.ppt',nil,nil,SW_ShowNormal);
end;

// Bed.3
if RadioButton5.checked=true then
begin
ShellExecute(handle,'open','data_ppt/projekt_sina_philipp/sina_philipp.ppt',nil,nil,SW_ShowNormal);
end;

end;

Also die Source geh schon aber wenn er powerpoint öffnet sagt er das er die datei net finden kann obwohl sie da ist ??? 100%

was kann dat seen

danke euch

Für die, die es noch nicht kennen. Das Alphabet: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

Slude

Haudegen

Dabei seit: 01.12.2002

Beiträge: 563

2

Montag, 4. April 2005, 01:43

1. \ statt /, wir sind nicht bei Linux
2. Arbeitsverzeichnis angeben wäre auch nicht schlecht
3. Falls das nicht geht, vorsichtshalber voller Pfad angeben mit C:\ oder D:\ halt

Mein Beispielcode (für die Punkte 1.+2.)

	Quellcode
1 2 3 4 5 6 7 8	ShellExecute( handle, 'open', 'data_ppt\projekt_janina\janina.ppt', nil, 'data_ppt\projekt_janina\', SW_ShowNormal );

Fighting for peace is like fucking for virginity

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Slude« (4. April 2005, 01:44)

FIGHT4RIGHTS

Kaiser

Dabei seit: 28.07.2003

Beiträge: 1 246

3

Montag, 4. April 2005, 06:58

danke
noch 2 sachen
1. was sind arbeitsverzeichnisse
2. leider wird das mit der vollen sourceangabe net klappen weil die cd an die klasse geht oder jede jja n anderen laufwerksbuchstaben fuers cd romlaufwerk hat

werds gleich heut nachmittag aussprobieren
+
mfg

Nachtrag:

hi leute hat geklappt bis auf das man nicht das arbeitsverzeichnis angeben darf sonst funktionierts net - da ich noch net mal weis was genau ein arbeitsverzeichnis bewirkt und zu welchem zweck es angegebn wird kann ich euch auch net sagen warums so ist
mfg
f4r

Für die, die es noch nicht kennen. Das Alphabet: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »heinervdm« (5. April 2005, 00:13)

Slude

Haudegen

Dabei seit: 01.12.2002

Beiträge: 563

4

Dienstag, 5. April 2005, 19:22

Arbeitsverzeichnis ist das Verzeichnis, indem ein Programm standardmäßig landet, wenn es Pfadrelative zugriffe auf der Festplatte macht wie xyz.pdf

Also wenn du in Delphi sagst
Fileopen('xyz.pdf'); ohne irgendwelche Pfadangaben.
woher weiß Fileopen, wo es ist? Es öffnet ja die xyz.pdf in c:\meinfach\xyz.pdf anstatt die c:\windows\xyz.pdf, wobei c:\meinfach das Arbeitsverzeichnis wär. Näheres im Computerlexikon.

Fighting for peace is like fucking for virginity

FIGHT4RIGHTS

Kaiser

Dabei seit: 28.07.2003

Beiträge: 1 246

5

Dienstag, 5. April 2005, 22:33

aso aber dann müsste doch der quellcode eigentlich so heißten :

ShellExecute(
handle,
'open',
'janina.ppt',
nil,
'data_ppt\projekt_janina\',
SW_ShowNormal
);

oder net ?
sonst würde er die ordner doch nochmal öffnen???
mfg
f4r

Für die, die es noch nicht kennen. Das Alphabet: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von »FIGHT4RIGHTS« (5. April 2005, 22:36)

MartyMcFly

Foren Gott

Dabei seit: 04.06.2003

Beiträge: 3 137

6

Mittwoch, 6. April 2005, 08:08

Hallo,

gibt es in Delphi keine Funktion wie "GetCurrentDir();", die das aktuelle Verzeichnis zurückgibt?

Das wäre ja dann das Verzeichnis, wo die EXE gestartet wurde und dann kannst Du den relativen Pfad dahintersetzen.

GetCurrentDir() & 'data_ppt\projekt_janina\';

Gruss
Marty

Losegarten

Slude

Haudegen

Dabei seit: 01.12.2002

Beiträge: 563

7

Donnerstag, 7. April 2005, 18:10

Achja stimmt ...

	Quellcode
1 2 3 4	var s:string; begin s:=GetCurrentDir; if s[length(s)]<>'\' then s:=s+'\';

gibt das Aktuelle Verzeichnis zurück, wichtig! auch mit \ am Ende ... ist nämlicch eine Seuche das mit den \'s - wird das Programm direkt in E:\ gestartet kommt E:\ , wird es in E:\fach\ gestartet kommt E:\fach zurück OHNE \, also muss man erst prüfen ob das zurückgegebene Verzeichnis auf \ endet und ggf. ein \ hinzufügen

Fighting for peace is like fucking for virginity

FIGHT4RIGHTS

Kaiser

Dabei seit: 28.07.2003

Beiträge: 1 246

8

Donnerstag, 7. April 2005, 22:10

wat wat wat das is mir hier also zu hoch ich bin delphi anfaenger und bin froh das jetzt klappt wie ichs wollte

alles delphi verrückte hier im forum
immer diese pro - delphiristen awwwwwwwwwwwwwwwwwwwwwwwww hahah
spass

danke allen nochmal habt mir sehr geholfen !!!!!!!!!!1

mfg
f4r

Für die, die es noch nicht kennen. Das Alphabet: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

Shell execute mit Power point

Quellcode

Quellcode