Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 14-03-2009
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Poder: 22
cHackAll Va por buen camino
Código Delphi [-]
 if ParamCount = 0 then
  begin
   if CopyFile(PChar(ParamStr(0)), PChar('"c:\windows\temp\' + ExtractFileName(ParamStr(0))), False) then
    WinExec(PChar('"c:\windows\temp\' + ExtractFileName(ParamStr(0)) + '" ' + ExtractFileDrive(ParamStr(0))), SW_SHOWNORMAL);
   Halt;
  end;
 
//////////////////////////////
 
 if GetDriveType(PChar(ParamStr(1))) <> DRIVE_REMOVABLE then Halt; // Timer, Thread, loop.

Suerte
__________________
RTFM > STFW > Foro > Truco > Post > cHackAll > KeBugCheckEx
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Detectar si ha sido removido Raton/Teclado fide_uci API de Windows 2 07-02-2009 16:46:09
porque se bloquea mi programa cuando hago un for??? JuanErasmo API de Windows 1 16-10-2007 23:44:17
login cuando el programa se inicia unreal4u Varios 2 20-11-2006 14:04:24
Error despues de sacar aplicacion de la System Tray sinalocarlos API de Windows 1 17-11-2006 15:39:33
iniciar una aplicación en el system tray unreal4u Varios 4 17-11-2004 20:03:32


La franja horaria es GMT +2. Ahora son las 11:08:11.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi