Webmaster Forum Logo Part 1 Webmaster Forum Logo Part 2
Webmaster Forum Logo Part 3
     
 
  :: Anmeldung

Benutzername:

Registrierung...

Passwort:

Passwort vergessen?

angemeldet bleiben


  
  :: Umfrage
Welche sozialen Netzwerke benutzt du regelmäßig?

 Facebook
 Webmaster - WebspaceWebmaster - WebspaceWebmaster - Webspace 73%
 keines
 Webmaster - WebspaceWebmaster - WebspaceWebmaster - Webspace 22%
 Google+
 Webmaster - WebspaceWebmaster - WebspaceWebmaster - Webspace 19%
 Twitter
 Webmaster - WebspaceWebmaster - WebspaceWebmaster - Webspace 11%
 Xing
 Webmaster - WebspaceWebmaster - WebspaceWebmaster - Webspace 6%
 schülerVZ
 Webmaster - WebspaceWebmaster - WebspaceWebmaster - Webspace 5%
 meinVZ
 Webmaster - WebspaceWebmaster - WebspaceWebmaster - Webspace 4%
 studiVZ
 Webmaster - WebspaceWebmaster - WebspaceWebmaster - Webspace 4%
 MySpace
 Webmaster - WebspaceWebmaster - WebspaceWebmaster - Webspace 2%
 LinkedIn
 Webmaster - WebspaceWebmaster - WebspaceWebmaster - Webspace 2%

 ges. 392 Stimmen
 
  :: Buttons

Valid XHTML 1.0 Transitional

Dabei seit: 28.07.2003

Beiträge: 1 246

 

1 Zum Seitenanfang

Freitag, 14. Oktober 2005, 09:05

Pchar Pansichar was auch immer zum string bitte :((((((((

hallo Leute,

mein Herz zerreißt hab n puls von 250
ich versteh das einfach net :

procedure URLlForm.TimerTimer(Sender: TObject);
var URL: PAnsichar;
begin
URL:=PAnsichar(Edit.text);
ShellExecute(handle,'open',''+URL+'',nil,nil,SW_ShowNormal);
end;

ES funktrioniert net @ delphi 7

Rettet mir das leben

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 »FIGHT4RIGHTS« (14. Oktober 2005, 09:06)

 

K1nt4ro

Moderator

Dabei seit: 01.11.2002

Beiträge: 2 300

 

2 Zum Seitenanfang

Freitag, 14. Oktober 2005, 10:48

RE: Pchar Pansichar was auch immer zum string bitte :((((((((

Willst du an die URL noch irgendwas anhängen oder wozu das ''+URL+'' ? Jedenfalls klappt es dann so:

Quellcode

1
2
3
4
5
6
procedure TForm1.FormCreate(Sender: TObject);
var URL: PAnsichar;
begin
URL:=PAnsichar(Edit1.text);
ShellExecute(handle,'open',PChar(''+URL+''),nil,nil,SW_ShowNormal);
end;
Wird (wahrscheinlich) Japan oder (noch viel wahrscheinlicher) die gesamte Menschheit retten

Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »K1nt4ro« (14. Oktober 2005, 11:11)

 

Dabei seit: 28.07.2003

Beiträge: 1 246

 

3 Zum Seitenanfang

Freitag, 14. Oktober 2005, 13:08

supa
danke
mfg
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